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MODULE "iets | ( meats # ‘Print Symbiont = main dispatch routines’ 


E 
ADDRESSING _MODE (EXTERNAL = GENERAL) 


r — se inca TATE 


BEGIN 


' 
. 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'* ALL RIGHTS RESERVED. 


® 
a 
* 
: ® 
if THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
is ONLY IN. ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
if INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO.ANY © 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
*® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
* 
+ 
® 
* 
ca 
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1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: = SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: : 

Print Symbiont. 
0036 : AOSTAAE? 
0037 ‘ This module contains the main control loop for the symbiont. 
003 : PSMSDISPATCH steps through the various symbiont states and 
0039 ! switches among the input routines. It also calls the format 
sre and output service routines. 
004 : This module also contains various miscellaneous subroutines 
004 : related to error handling, checkpointing, and push/pop of input 
0044 ‘ routines. 
0045 : 
0046 ! ENVIRONMENT: 
0047 : VAX/VMS user mode, AST-level. 
0048 leo 
0049 : 
sit 3! AUTHOR: G. Robert, CREATION DATE: 31-Aug-1982 
B02¢ MODIFIED BY: 
0054 : 38-011 RRB3011 Rowland R. Brad 4 09-Aug-1984 
0055 ' If aligning the file and READ 7con LETION detects EOF 
0056 ‘ then send a response to job controller. Added the 
0057 : test for psm$v_align in READ_COMPLETION case of 


NN EEO. = — 
Be Be Be Be Be Be Se Se Se Se Se Se Se Se Be FF Se Se Se Ge Be FH Se Se Se Ses Oe Se Oe Se Se Se Se Se Se Se SF Se Se Se Se Se Se Se Se Se Se Se SOSH Se Se ee Se esas 


< 
= 


Sete Oe Oe Oe Be Se ee SH Se SH Se Se Se Se Se Se Se ee SHS Se ae 


v04-000 14-Sep-1984 PRTSMB 


a 
DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 95:19:00 AX-11 Oi rete repltin. ots , Page as 


3 8 p038 : PSMSFUNCTION_DISPATCH. : 

; 60 0060 1! 38-010 RRB3010 Rowland R. Bradley 27-Jul-1984 F 

oo )| 0061 1! Clear the suppress_output bit and the search ror page ; 

3; 6|6§ BReg 1: bit on EOF (only on file service). Also conditionally H 

a. | 0065 1! set stop_page to -1 (only when the current service is ; 

; & 0064 1! mot nested). This fixes the symbiont hang when search : 

;. 0065 1! for page is past end of file and the /HEADER & /PAGES ; 

;. © 0066 1! ill interaction. : 

: Of 0067 1! : 

; S&S 0068 1! 3B-009 GRR3009 prepory R. Robert 25-Jul-1984 3 

; 0069 1! Remove the global clear of the sequence bit in print : 
i; 70 0070 1! control. This fixes the problem /header interfering F 

: 4 ote ’ } with Line numbers. . 

BMS 0075 1! 38-008 GRR3008 _ Gregory R. Robert 11-Jul-1984 : 

; 0074 1! Suppress leading carriage control for first record : 

: 75 0075 1! of implied carriage control input service. Remove : 

; a pore : code that resets accounting totals after separation pages. : 

; «(68 0078 1! 38-007 GRR3007 Gregory R. Robert 16-May-1984 : 

3 79 0079 1! Defend against attempted CLOSE when service routine : 

s BY pee ! is non-existent ; 

; 82 0082 1! 3B-006 GRR3006 | Gregory R. Robert 09-May-1984 : 

s a? Rog7 ! Fix call interface for user filter/format routines. : 

; §5 0085 1! 38-005 GRR3005_— Gregory R. Robert 29-Apr-1983 : 

s B6 Boe ' FT2 bugfixes plus margins. 

; 0088 1! 38-004 GRR3004 Gregory R. Robert 01-Sep-1983 

; w 0089 1! Enabled PHY 10 so that DCS escape sequences can be 

; + Boe) : written PASSALL or NOFORMAT. 

6 6 0092 1! 38-003 GRR3003 Gregory R. Robert pe Pte 

; 0093 1! Bugfixes, page_setup_modules, form_setup_modules, 

; 94 0094 1! sheet_feed, Symbiont initiated pauSe_task and stop_stream, 

3 a2 Bpa2 : hangup code, read and write item services 

eh 0097 1! 3B-002 GRR3002 Gregory R. Robert 03-Aug-1983 

: ss Beas : Rewrite for new design. 

: 100 0100 1! 38-001 GRR3001 Gregory R. Robert 29-Jul-1983 

; 101 O101 7: Created new module. 

: 102 0102 1! 

; 103 0103 1! 

: 104 0104 1 !## 
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¢ 
Print Symbiont = main dispatch routines 1 
0105 1 LIBRARY ; SYSSLIBRARY: L1B'; 
0106 1 REQUIRE ‘LIBS: SMBDEF 
999 REQUIRE "SRCS: SmBREQ": 
1056 1 EXTERNAL ROUT INE 
1057 1 SMSALLOCATE _DSB : NOVALUE, 
1058 1 Poh MSALLOCATE-I0B : NOVALUE, 
1059 1 PSMSDEALLOCATE _DSB : NOVALUE, 
1060 1 MBSINITIAL 
1061 1 SMSR ECEIVE E RES SAGE Ast. 
106¢ 1 MSSCHEDULE_N T, 
1063 1 PORSSCHEDUL 0 Jo OBCTL 
1064 1 PSMSWAIT~FOR_NON NAST 
1065 1 ; 
1066 1 
1067 1 EXTERNAL 
1068 1 PSMSGL ~SCBVEC + VECTOR, 
1069 1 PSM$GL-MAXBUF 
1070 1 PSM$GL —-U 
1071 1 SM$SRV_: BCOCKVECTORC,SRV_S_ SRV, 
1072 1 PSM$XLATE_ALIGN : VECTOR C7BYTEJ. 
1073 1 PSMSXLATE_8BIT : VECTOR [BYTE] 
1074 1 ; 
1075 1 
1076 1 LITERAL 
1077 1 EDIT_MASK = %B '110000° 
1078 1 ; 
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733p- 1382 13:38:09 PRTSMB.SRC DISPATEN.639; 1 ee (2) 


BYTE), 


SCB index table 

maximum output buffer size 
user context area size 
service routine table 

i MOVTUC table for X's and 9's 
MOVTUC table for normal print 


upcase and compact spaces and tabs 


oe —E 
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vooe 605 r F 14-Sep 1382 93: 49: 89 PRTSMB.SRC RewD DISPAT M788 31 ° (3) 
i3 3 1079 1 FORWARD ROUTINE 
is t39 ise 1 PSMSFUNCTION_DISPATCH : NOVALUE, ! main control loop 

i 1081 1 PSMSREPORT > ! async. event completion 

Sar 1OR8 1 PSMSINCLUDE_MODULES ° : queues modules for insertion 

<< % 1083 1 PSM T 7 ' initialization entry point 

: Fe 1988 : PSMSSTORE_ERRORS P ' store errors for latter 

3: 141 1086 1 ABORT_TASK : NOVALUE, ! aborts current file 

; 18 1087 1 CARRIAGE CONT ROL . ! computes carriage control 

: «14 1088 1 ENQUEVE_CHEC : NOVALUE, ' save a checkpoint 

3 1446 1089 1 EXPAND CONDITION. VECTOR : NOVALUE, ' expand errors to text 

: 145 1090 1 FIND _CRECKPOIN . ' find a checkpoint 

: 146 1091 1 GET BUFFE ‘ ! get a buffer 

3 (147 1038 1 HANDLER » ! main signal handler 

; «168 10935 1 PUTMSG_ACTION ° ! $PUTMSG action routine 

; «149 1094 1 RESUME SERVICE : NOVALUE, ! POP input routine 

: 150 1095 1 SAVE_CRECKPOINT : NOVALUE, ' contstruct a checkpoint 

: 151 1096 1 SCHEBULE_SERVICE . ' schedule an input routine 

; 136 1097 1 SEARCH_FOR_STRING ‘ ' look for a search string 

: 1098 1 SUSPENDS ERVICE : NOVALUE, ! PUSH input routine 

3 138 44 : STRIP_ COMMA. DELIMITED_ ITEM ! parse comma separated Lists 
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v04-000 FUNCTION_DISPATCH = Main symbiont control loop 14-Sep-1984 12:55: PRTSMB.SRCIDISPATCH.B32;1 (4) V 
; re 1101 1 ZSBTTL ‘FUNCTION_DISPATCH = Main symbiont control loop’ : 
es 3 188 1 ! Functional Description: 3 
; 19 1105 1! Steps through symbiont states, switching amon : 
; 160 1106 1! input routines and calling format/output service ; 
: 6161 1105 1! routines as necessary. ; 
3 19 1106 1! 3 
; 1 1107 1°! Formal Parameters: $ 
> «164 1108 1! Address of a SCB (stream control block) : 
; 165 1109 1! ; 
; 166 1110 1 =! Implicit Inputs: : 
: 167 1111 #1! none : 
: 168 1316 7} FH 
; 169 111 1! Implicit Outputs: : 
; 170 11144 1! none : 
3; 171 itt eR : 
; 1% 1116 1 ! Returned Value: . 
See fy 1117 1! n ; 
3; (174 1118 1! 3 
3 Wf 1119 1! Side Effects: ree : 
3 178 135) ; Asynchronous 10 events may be initiated : 
s 178 1122 1 GLOBAL ROUTINE PSMSFUNCTION_DISPATCH ( : 
3 179 1123 1 cB : REF $BBLOCK ' stream control block address : 
: 180 1189 1 ) : NOVALUE = s 
: «6181 1125 2 BEGIN : 
: iss 1126 2 ; 
3; 18 1127 2 LITERAL : 
: «(186 1128 2 FIRST_STATE = 0, ' Must be zero ; 
; 185 \1$8 2 START_TASK = FIRST_STATE, : 
: 186 1130 2 F IND_QORK = 1, ; 
s 187 1131 2 OPEN = ¢: . 
; «4188 1186 2 OPEN_COMPLETION a” 3 
3; «(189 1133 2 REA = 4, : 
; 190 1134 2 READ_COMPLETION = 5, $ 
3 «6191 1135 2 INPUT_FILTER = 6, : 
: 192 1136 2 INPUT_FILTER_COMPLETION = 7, 3 
oS 1137 2 FORMA = 8, ; 
> 19% 1138 2 FORMAT_COMPLETION = 9 : 
> 195 1139 2 OUTPUT~FILTER = 16, ; 
3; 196 1140 2 OUTPUT_F ILTER_COMPLETION = 11, ‘ 
3: 197 1141 2 WRI - \¢- 

; «4198 Ba | 2 WRITE_COMPLETION = 15, 

; #199 1143 2 = 14, 

; $90 1144 § CLOSE_COMPLETION = 15, 

s 01 1145 STOP_TASK = 16, 

3 $36 1146 2 = 17, 

; a 1147 2 RESUME = 18, 

: 204 1148 2 LAST_STATE = RESUME 

3 209 1149 2 ; 

; 206 1150 2 

; a4 1151 LITERAL 

; 208 1126 CONTINUE 2 1; 

: 09 115 

: 210 1154 LABEL 

: 11 1155 CASE_STATEMENT; 

3 $ig 1156 : 

3; (at 1157 ! For each state specify the default next_state 
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pad “COMPLETION, 


WRI 
WRITE_ COMPLETION 
CL CLOSE COMPLETION, 
FIND_QORK, 


CLOSE_COMPLETION) 
STOP_TASK] 

IDLET 

RESUME J 


ca 


TATE : VECTOR CLAST STATE + 1, BYTE) 
CT hs 
START_T = FIND_WORK, 
FIND gore) = OPEN; 
OPEN s OPEN. COMPLETION. 
OPEN_COMPLETION] = 
E = READ. COMPLETION, 
READ_COMPLETION] = INPUT_FILTER, 
INPUT_FILTER s INPUT FILTER_COMPLETION, 
INPUT-FILTER_COMPLETION] = FORMAT, 
FORMA = FORRAT ~fOMPLETION, 
FORMAT_COMPLETION] = OUTPUT-FILTER 
OUTPUT-FILTERJ = OUTPUT- “FILTER! COMPLETION, 
OUTPUT “FILTER COMPLETION) = 


DLE, 
RESUME 


! Specify expected errors that do not cause automatic task abort 
on a state specific basis 


WN 
EXPECTED ERRORS : 53h CLAST_STATE + 1] 
PSECT (CODE) PRESET 


CREAD COMPLETIONS 


RMS$_EOF ) 
CFORMAT_COMPLETION] 


_EOF, 
“BUFFEROVF; PSM$_NEWPAGE, 
“ESCAPE, PSm$_ SUSPEND) 


PLIT (PSM$ 
PLIT (PSM$_ 
PSM$_ 


Page 
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V O00 UNCTI N DISPATCH = Main symbiont control loop 12-80-1382 95:39:09 PRTSMB.SRCIJDISPATCH.B32;1 . 
0 
5 ! Advance through the ght states until an asynchronous service 
¢ ' returns gone te or all ar buffers are in use, or a pause is 
a requested by the job controller 
2? UNTIL - SCBCPSMSL_SERVICE_STATUS] EQL PSMS$_PENDING 
57 CASE_STATEMENT: 
58 BEGIN 
59 LOCAL SERVICE : REF SBBLOCK; ! Table entry for current input service 
60 LOCAL SERVICE_STATUS; ! Status of most recent service 
63 LOCAL CURRENT_STATE; ! Current symbiont state 
6 
ee Don't do anything unless we have or can get an output buffer 
6 if .SCBCPSM$A_10B8) EQL 0 
: IF NOT GET_BUFFER (.SCB) 
7 RETURN; 
g 
7 ! Locate the current input service, pickup the last 
, service status, and initialize the next service status to success 
z SERVICE = PSMSSRVC.SCBCPSMS$B_SERVICE_INDEX],0,0,0,0]; 


SERVICE _STATUS = .SCBCPSMSL_SERVICE STATUSJ; 
SCBCPSMSL_SERVICE_STATUS] ="SS$_NORMAL; 
Get the current state and select the next state default 


CURRENT_STATE = .SCBCPSM$B_STATE); 
SCBCPSMSB_STATE] = .NEXT_STATEL.CURRENT_ STATE); 


COCDOoCO~I—~ 
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Report any unexpected errors 
if NOT .SERVICE_STATUS 
THEN 
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90 

91 BEGIN 

92 BIND ERROR_LIST = .EXPECTED_ERRORSC.CURRENT_STATE) : VECTOR; 
37 LOCAL EXPECTED_ERROR : INITIAL (0); 

95 ! If an expected error List is specified for the current 
96 ! state then loop through the List to see if the service 
44 error is expected. 

99 iF ERROR_LIST NEQ 0 

00 THEN 

4 INCRU ERROR_INDEX TO .ERROR_LIST(C-1) - 1 

08 IF .SERVICE_STATUS EQL .ERROR_LISTC.ERROR_INDEX] 
04 THEN 

05 BEGIN 

06 EXPECTED_ERROR = 1; 
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yOe-000 FUNCTION. DISPATCH - Main symbiont control loop 18-808 - 1 3be 95:39:09 PRTSMB.SRC1D1SPATCH.B3 31 . (5) v0 
; 307 1 9 5 EXITLOOP; 
; 308 1 4 END; 
; 309 1 ¢ 4 
3 19 : ? ? If an unexpected error then report it 
; 3 5 4 if NOT .EXPECTED_ERROR 
: 314 1 2 4 PSMSSTORE_ERRORS (.SCB, .SERVICE_STATUS); 
3 3515 1258 ND; 
; 316 1259 
; 317 1260 
3 + : $1 } Dispatch to the appropriate code 
; 320 1568 CASE .CURRENT_STATE FROM FIRST_STATE TO LAST_STATE OF 
3 $3 1264 SET 
3 ¢ 1265 
3; 3¢ 1266 : 
: 324 1267 ! NOTE: the usual VMS/Bliss formating conventions are altered here. 
; $ 1¢o8 Each case label begins a new page and is left justifed. 


Peete Se Se Se Se Se Be Se Se SH Se Se Se Se Se SH Se SHS Se Se Se Bee Se Se ee SH Se Se Se eae 


—————————_ 


| 
8 
DISPATCH Print Symbiont = main dispatch routines 1b-se -1984 02:10: AX-11 Blis 
v -000 FUNCTION. DISPATCH = Main Cyabient control loop 12-808-1 382 95:39:09 PRTSMB.SRC 
3 8 1270 3 CRESUME): 
3 1271 4 BEGIN 
le 0 1$7¢ 4 
3 1 1275 & ! 
ir ¢ 1276 4} 
3 1275 4 ! RESUME handles positioning, searching, and alignment requests. 
s 4 1276 4 ! The desired atary of poge 1s reached By successive approximations 
; 5 1277 4! aE A | the POSITION TO KEY and REWIND service functions and the 
: § 1278 4 ! SEARCH_FOR_PAGE, SEARCA_FOR_STRING and ALIGN features of the 
: ; : i 2 } symbiont 
; 339 1281 4 | == 
'; «6340 1 Hf 4 
; “} ! o ? LOCAL CHECKPOINT : REF $BBLOCK; 
; “§ : o2 2 Reset positioning and alignment controls 
: 345 1287 4 SCBLPSMSA_XLATE TABLE = PSMSXLATE_8BIT; 
; 366 1288 4 SCBCPSM$V_ALIGN] = 0; 
3 $e 1289 4 SCBLPSMS$V_SEARCH_FOR_PAGE) = 0; 
H 48 1290 4 SCBLPSM$V_SEARCH FOR STRING) = 0; 
: $<3 1392 : SCBLCPSM$V_SUPPRESS_OOTPUT) = 0; 
: 351 1598 
: $26 1s38 ? If no start page specified then default to current page 
3 $54 1296 4 IF .SCBCPSMSL_START_PAGE] EQL 0 THEN SCBLPSMSL_START_PAGE] = .SCBCPSMSL_PAGE); 
: 356 1298 4 
: $25 +44 2 Look for a useable checkpoint that improves on the current page location 
; 335 1301 4 CHECKPOINT = FIND CHECKPOINT (.SCB); 
; re 1306 ° fg CHECEPOINT NEG 0 
; 563 1304 § BEGIN 
: $07 1303 : LOCAL KEY_DESC : VECTOR (2); 
3 365 1307 3 ! Save the checkpoint address for INPUT_FILTER_ COMPLETION 
: 367 1309 3 SCBLPSMS$A_CHECKPOINT] = .CHECKPOINT; 
; 369 1311 5 
; 370 a 5 ! Mark the next read as offset, set the new page number 
; re Iai? 2 and cancel any outstanding input record 
; 18 1315 5 SCBLPSMSV_READ_OFFSET) = 1; 
; 374 1316 5 SCBLPSMSL~PAGE] = .CHECKPOINTCSMBMSGS$L_PAGE); 
: 376 EA : SCB_SIZE_ (INPUT_RECORD) = 0; 
; or 1319 
: 4 1330 Set up the user key descriptor 
: 380 1328 KEY_DESCEO) = 4; 
; 81 1323 KEY-DESCL1) = CHECKPOINTCSMBMSG$Q_USER_KEY); 
; 38 1325 3 Ona 
; 6584 1326 5 ' Request random positioning 
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vOe-000 UNC TION DI DISPATCH = Main symbiont control loop 14-Sep-1 1984 93: 38: 9 PATSMB SRE IDI SPATCN. 03 B32;1 
85 
ry ScOLPsns. SERVICE_STATUS] = BLISS ( 
RVICECSRV_A_SERVICE), ! «= current input service 
3 i: ! « $CB adores by Fererense 
9 declyte saber CONTEXT_AREA], | = user context ar 
90 UPLIT POSITION_TO_KEYS, | = POSITION. TO.KEY function 
91 KEY_DE ! « checkpoint descriptor 
35 0); ! © <not used> 
: 
95 if _ SCOCPSASL SERVICE STATUS) EQL PSM$_FUNNOTSUP 
39 CODEERR_ ; ! POSITION_TO_KEY is symetrical with GET_KEY 
99 
400 LEAVE CASE_STATEMENT; 
401 END; 
20 
tbe If the start page is still less than the current page then rewind 
406 if .SCBCPSMSL_START_PAGE] LSSU .SCBLPSMSL_PAGE) 
407 THEN 
408 BEGIN 
40 


; Adjust the page context and cancel any outstanding input record 


SCBLPSMSL_PAGE] = 

SCBLPSASL “RECORD * WUABER) 
SIZE_~ (INPUT Mal rae 

SCBEPSMSC. CARCON] = 


Request the input service to rewind 


SCBCPSMSL_SERVICE_STATUS] = BLISS ( 
. SERVICECSRV_A “SERVICE), 


SCBEPSMSR_USER CONTEXT AREA], 
yrult (PSA$K_REWIND) 


05; 


current input service 
SCB address by reference 
user context area 

REWIND function 

<not used> 

<not used> 


iV SCOCPSMSL SERVICE STATUS) EQL PSM$_FUNNOTSUP 
CODEERR_ ; ! REWIND is a required function 
Leave CASE_STATEMENT; 
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If the start page is still forward of the current page then start page search 
if . SCBCPSMS$L_START_PAGE] GTRU .SCBLPSM$L_PAGE) 
BEGIN 
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DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 11 
vo FUNCTION DI DISPATCH - Main Syabtont control loop 14- ety 95:39:89 PRTSMB.SRC DispAtey.o$5;1 ’ (6) 
3 + 1 8 SCB Psmsi _STOP_PAGE) : SCBLPSMSL_START PAGE]; 

3: 66 1385 SCBCPSM$V-SEARCH FOR PAGE) = 

3; 666 1 56 SCB PeMsy = UPPRESS 00 OOTPUT) = 1: 

> 4465 1 SCBLPSM ORMAT; 

> 44 1 38 LEAVE CASE_ STATEMENT 

; «446 1389 4 END; 

; 448 1390 4 

; 449 1391 4 

3 $29 : 6 2 } Set the stop page for nahh search or in case we start printing 

3; 6 § 1394 4 SCBCPSMS$L_STOP_PAGE) = 

; 4 1395 4 IF .ITEM_PRESERT_ (LAST PAGED 

> 4546 1 38 4 THEN 

; 455 1397 4 SCBCPSMSL_STOP_PAGE] = .SCBCPSMS$L_LAST_PAGE] + 1; 

3 $26 1398 4 

; 45 1399 4 

3 rt 1200 : : Start page reached -- initiate a string search if requested 

: 460 16R6 4 IF TESTBITSC CITEM_PRESENT_ (SEARCH_STRING)) 

: te) ico, § NEN | 
; 46 1405 5§ BASSEDIT (SCBCPSM$Q_ SEARCH STRING], pice CBCPSM$Q_SEARCH_STRINGJ, EDIT_MASK) 

> 464 1406 2 CLEAR_STRING. (SCBCPSM$Q_SEARCH CONTEXT); 

; 465 1407 SCBCPSMS$V_SEARCH_FOR ePR TNE) = 7; 

3 466 1408 é SCBCPSM$V_SUPPRESS_OOTPUTJ = 1; 

3; 467 1409 SCBLPSM$B_STATE) = FORMAT; 

: 468 1410 5§ LEAVE CASE_ STATEMENT; 

; 469 1411 & END; 

; 470 1e16 4 

3 4671 141 4 

3 o? ie ? } Positioning complete -- check for alignment 

3 474 1416 4 IF TESTBITSC (ITEM_PRESENT_ (ALIGNMENT_PAGES) ) 

3; 475 1417 4 THEN | 
3; 476 1418 5 BEG! 
3; 477 1419 5 SCBLPSMSV ALIGN] = 
3 rth | 10st ; ine ,REQUEST _FLAG_ (ALIGNMENT MASK) 

; 480 1058 5 CBCPSM$A_XLATE_TABLE] = PSMS$XLATE_ALIGN; 

; «4481 1423 5 sas STOP_PAGEJ = * > aeciataee PAGE] + .SCBLPSMSL _ALIGNMENT_PAGES); 

; rt 1es¢ 3 SCBCPSM$B_STATE) = FORMA 

3; 484 1426 5 ! (Since we don't alter SCBCPSMSL_START_PAGE] repositioning to 

; ret loce the current page following alignment Completion is automatic). 

: 487 149 LEAVE CASE_STATEMENT; 

; 488 1430 4 END; 

; 489 1431 4 

; 490 1638 4 

: red see? ? : Print only one page if in sheet_feed mode 

s tai 1+? 2 i" -SBBLOCK CSCBCPSMS$L_PRINT_CONTROL], SMBMSG$V_SHEET_FEED] 

; 4495 1437 4 SCBCPSM$L_STOP_PAGE] = .SCBCPSMS$L_PAGE) + 1; 

: rt | 1438 4 

; 49 1439 4 : 

; 498 1440 4 ! Resume complete -- tell the job controller 


DISPATCH Prin 
Vv FUNC 
; 499 1441 
3 200 1666 
; 501 144 

; 8¢ 1444 
3; 1445 
; 04 1773 
: 382 1208 
; 209 14469 
; 508 1450 
; 509 1451 
3 10 O26 
3 11 145 

: \¢ 1454 
ay 1455 
s 3146 1456 
s $15 1457 
s 36 1458 


—_ 
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sya tont = main dispatch routines 18-5 Sep ~1386 9 319: 0 AX-11 Bliss-32 V4.0-742 
1ON_DISPATCH = Main symbiont control loop 14-Sep 75 PRTSMB.SRC DISPAT H.B32;1 
' 
SMBSSEND_TO_JOBCTL ( 
SCBLPSREL STREAM_ INDEX), ! = stream number 
SCBCPSMSL_REQUEST TRESPONSE) ; i. responding to resume or start task 


: If pause at completion was requested then marks as pending 
if TESTBITSC (REQUEST_FLAG_ (PAUSE_COMPLETE)) 


BEG 
sc cat Psmsy. RESUME _WAIT] = 1; 
5CB PSMSL_SERVICE_STATUS] = PSM$_PENDING; 


E 
SCBCPSM$B_STATE] = FORMAT; 
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Voie $08 FUNCTION. D1 SPATCH = Main Cyantent control loop bat ae ts 1 93:19:89 PRTSMB™ SR REID DT SPAT 07885; 31 . (7) 
; 518 1459 3 CSTART_TASK]: 
3 319 1460 4 BEGIN 
3 0 1461 4 
; 1 1396 4 ! Tell the job controller that START_TASK is complete and we 
; § 1463 4 | are now printing 
r 1464 4 i 
3 4 1465 4 SMBSSEND_TO joer on 
: 5 1666 4 SCBCPSMSL_S EX), ' = stream number 
; $ ret : SCBLPSMSL ~ReauesT TRESPONSE)) ; ! = responding to start task 
; 8 1469 & : 
; H , 1909 ? If pause at completion was requested then marks as pending 
s $351 aig 4 IF TESTBITSC (REQUEST_FLAG_ (PAUSE_COMPLETE)) 
$ 2 ¢ 1475 4 THEN 
: 1474 5 BEGIN 
; 534 1475 5 +. PSM$V_RESUME WAIT] =_1; 
: $35 1476 5 SCBCPSMS$L_SERVICE_STATUS] = PSM$_PENDING; 
; 536 1477 4 ; 
s $57 1478 4 
; 538 1479 3 END; 
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1. “ stopping the stream (STOP/NEXT or STOP/RESET) then stop 
as 


S$ 

0 

3 

4 

4 

4 

¢ 

? F pSCOCPSNSY RESET 

? SCBCPSM$SB_STATE] = STOP_TASK 

2 Otherwise look for an input service 
4 if NOT SCHEDULE_SERVICE (.SCB) 

? None found, cancel sheet_feed and flush the output stream 
5 BEGIN 

5 $BBLOCK CS 
5 atest 

5 SCBCPSM$B 
4 END; 

4 

3 


TROL], SMBMSG$V ueET. -FEED] = 0; 
vert LUSH_PENDING) 
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ont_= main dispatch routines 
SPATCH = Main symbiont control Loop 


BEGIN 
SCBLPSM$B_STATE] = FORMAT; 
LEAVE CASE_STATEMENT; 


Establish the default carriage control 


} Tell the input service to OPEN 


SCBCPSMSL_SERVICE_STATUS] = BLISS ( 

: SERVICELSRV_K. SERVICE], 
SCBCPSM$R_USER_CONTEXT_AREA], 
UPLIT (PSM$Kk_OPEN) 


SCBCPSM$Q_FICE_SPECIFICATION], 
SCBLPSMSL FUNCTION ARGUMENT ]): 


END; 


B 9 
16-Se 
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Sep-1984 19:59:07 


AX-11 Bliss-32 ren ade 
PRTSMB.SRCIJDISPATCH.B32;1 


f resuming a suspended service then continue at FORMAT 
 whtatcihen CSCBCPSM$SL_SERVICE_OPEN], .SCBCPSM$B_SERVICE_INDEX]] 


SCBCPSMSL_FUNCTION_ARGUMENT] = PSMSK_CC_IMPLIED; 


current input service 

SCB address by reference 

user context area 

OPEN function 

file name ; 

receives carriage control type 
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k DISPATCH = Main symbiont control Loop 
0 
E 


jont - main dispatch routines 16- 


PEN_COMPLETION): 
GIN 


If the open failed then look for more work 
i 


if NOT .SERVICE_STATUS 
THEN 


BEGIN 
SCBLPSM$B_STATE] = FIND_WORK; 
LEAVE CASE_STATEMENT; 


! Mark the service OPEN and set the carriage control type 


CPSM$B_CC_TYPE] =".SCBCPSM$L_FUNCTION_ARGUMENT]; 


o- 


f this service is NOT a nested service then init the stop page 
o default of -1(end of file). 


F arhataas ipslirk teats LEQ 0 

SCBCPSM$L_STOP_PAGE] = -1; 
Handle special features of main file processing including 
checkpoint restarts, first and last page (/PAGE=(first,last)) 
and print flags (/FEED, /HEADER, /SPACE) 
Cf EEL ae A SERIES FIOE EQL SRV_K_FILE_SERVICE 
BEGIN 
Set the print flags 
SCBCPSMS$L_PRINT_FLAGSJ = .SCBCPSMSL_PRINT_CONTROL); 
: Set up the local Fop and left margins (PSMSMAIN_FORMAT 
! uses the global right and bottom margins because, with 
/urap, /truncate, /feed disabled they have no effect. 


SCBLPSMSL_L_MARGIN] = - SCBEPSMSL_LEFT MARGIN); 
SCBLPSM$L_-T~MARGIN] = .SCBLPSMS$L_TOP_MARGINI; 


: Supress sequence numbers if width is too small 


iF (.SCBCPSMSL_FORM_WIDTH] - .SCBCPSMSL_LEFT_MARGINJ) 
- .SCBCPSMSL_RIGHT_MARGIN] LSSU 8 


HEN 
PRINT_FLAG_ (SEQUENCED) = 0; 


B 
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ad et me etm 


. a8 resterting from a checipetnt . or if a first page was 
! specified, then setup so that the RESUME processing will 
! position to the correct page. 

: 


TVECTOR CSCBCPSMSL_SERVICE OPEN], .SCBCPSM$B_SERVICE_INDEXJ] = 1; 
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oi prain Print syeb tone = main dispatch routines 16-Sep-1984 0¢:19:00 AX-11 Bli 
v04=-000 FUNCTION_DISPATCH = Main symbiont control loop 14-Sep-1984 12:55:07 PRTSMB.SR 
; 650 1388 IF .ITEM_PRESENT_ (CHECKPOINT_DATA) 
; 651 1589 THEN ; : 
3 626 1590 ! Checkpoint == save it if valid 
; & 1591 6 BEGIN 
; 654 1238 6 BIND CKP = .SCB_ADDR_ (CHECKPOINT_DATA) : $BBLOCK; 
; 655 1593 6 IF .CKPCSMBMSG$B6_CHECKPOINT_LEVEL] EQL SMBMSG$K_STRUCTURE_LEVEL 
; 656 1594 § THEN 
; 657 1595 BEGIN 
: 658 1596 7 ENQUEUE CHECKPOINT (.SCB, SCBLPSM$Q_CHECKPOINT_DATA]); 
; 659 1597 7 SCBCPSMSL_START_PAGE] = .CKPCSMBMSGSL_PAGEJ; 
; 660 1598 7 END 
; 661 1599 3 END 
; 66 1600 ELSE : 
; 66 1601 5 | /PAGE=(first_page,’"’) 
; 664 1oR6 5 ! 
; 665 1603 5 IF .ITEM_PRESENT_ (FIRST_PAGE) 
; 666 1606 5 
; $67 1605 3 SCBCPSMSL_START_PAGE] = .SCBCPSM$L_FIRST_PAGE]; 
; 669 1607 5 ' Flush the output stream -=- positioning will be picked up 
3 ero 10% ; } after flush is complete 
3; 67 1610 5 hates: C.SCBCPSM$A_10B),10B_V_FLUSH_PENDING] = 1; 
; 67 1611 5 SCBLPSM$SB_STATE) = OUTPUT_FICTER; 
: 674 1216 4 END; 
; 675 1613 3 END; 
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v04-000 FUNCTION_DISPATCH = Main symbiont control loop 14-Sep-1984 12:55: PRTSMB.SRC DISPAT CH.B32;1 
; 677 1614 3 CREAD): , 

; 678 1615 4 BEGIN ‘ 

; 679 1919 4 

3 ° 161 2 Initialize the user record descriptor (dynamic) 

: 68 1619 4 CLEAR_STRING_ (SCBCPSM$Q_USER_RECORD]); 

; 68 1620 4 

> 684 1621 4 

: on? 1 ¢ : Quit if input service ended 

; «468 1624 4 IF .SCBCPSM$V_EOF] THEN LEAVE CASE_STATEMENT; 

; 688 1625 4 

; 689 1626 4 

; oy Ys : Clear the record header field and set the new_record flag 

; 69 1629 4 the st ae RECORD Oaptee te = 0; 

; 69 1630 4 SCBCPSM$V_ NEW RECORD) = 

; 694 1631 4 

; 695 1O36 4 é 

3 038 1987 : Defend against an attempt to READ a non-existent service 

; 698 1635 4 IF .SERVICECSRV_A_SERVICE] EQL 0 

; 699 1636 4 THEN 

; 700 1637 5 BEGIN 

; 701 1638 5 ary: STATUS = PAT FUNNOTSUP; 

s ro 1639 5 LEAVE CASE “STATEMENT 

; 70 1640 4 ENDS 

; 704 1641 4 

; 705 1os¢ 4 

: 706 1645 4 ! Initiate the READ 

; 707 1644 4! 

; 708 1645 4 SCBCPSM$L_SERVICE_STATUS] = BLISS (¢ 

; 709 1646 4 SERV RVICECSRV_A_ SERVICE), ' © current input service 

; 710 1647 4 $C ' = SCB address by reference 
; 711 1648 4 SCBEPSMSR USER_CONTEXT_AREA], ! = user context area 

s Tle 1649 4 UPLIT (PSAS$K_R ‘ ' © READ function ; 

: 713 1650 4 SCBCPSM$Q_USER_RECORDJ, ! = quadword to receive desc 
s 716 1651 4 SCBCPSMSL_RECORD _HEADER)); ' = record header 

s 715 1652 4 

» Fs 1653 3 END; 
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ont = main dispatch routines 
SPATCH = Main symbiont control loop 


AD_COMPLETION): 


> 


AX-11 Bliss-32 V 
SPA 


PRTSMB. Re DI PA 


' Check for exceptions 


F NOT 
R .SCBLPS 
mS SERVICE erie EQL PSM$_FUNNOTSUP 


penyicé p{ATUS 


BEGIN 
Assume we will close 
SCBCPSM$B_STATE] = CLOSE; 


! If EOF and searching for page then disable suppression and page 
search. 


IF (.SERVICE_STATUS EQL PSM$_EOF OR ae VICE_STATUS EQL RMS$_EOF) 
AND (.SCBLPSMSV_SEARCH_FOR_STRING] OR .SCBLPSMS$V _SEARCH_FOR_PAGE] 
OR .SCBCPSM$V_ALIGNIS 
THE 
EGIN 
! Only if this is a file service EOF do we wish to stop 


searching 
if » SERVICECSRV_B_SERVICE_TYPE] EQL SRV_K_FILE_SERVICE 


EBLPSMSV_ SUPPRESS OUTPUT] = 0; 
SCBLPSMSV- SEARCH_FOR_PAGE) = 


If EOF encountered while searching and resuming (NOT start_task) 
! then report it and pause the thread 


' 
' 
i 
if - SCBCPSMS$L_REQUEST_RESPONSE] EQL SMBMSG$K_RESUME_TASK 


HEN 
BEGIN 
sheet TO_JOBCTL : 
CBCPSM$L_STREAM_INDEX], ! = stream number 

SCBEPSMSt “REQUEST. RESPONSE), ! = request response (resume) 
0, ! = no accountin 
0, ' = no checkpoin 
0 ' = no device status 
SERVICE. STATUS i = report the error (eof) 

SCBEPSMSB_ STATE) = RESUME; 

StetPsn RESUME await] = {; 

S$CB pensh “SERVICE STATUS] = PSMS$_PENDING; 


LEAVE bet Seateeain 
END; 
END; 


| 
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Print syep tent = main dispatch routines 1$-sep-1986 0g: 10:00 Ax-11 Bliss-32 be Phage 
FUNCTION_DISPATCH = Main symbiont control loop 14-Sep-1984 12:55: PRTSMB.SRCIDISPATCH.B32;1 
1711 4 
rig 4 
tat : } Update accounting and current record number 
1715 4 INCREMENT. (ACC_DATA_ (RMS_GETS)); 
1216 4 INCREMENT- (SCBCPSMSC_RECORD_NUMBER); 
ie 
1719 4 ! If flush requested then mark the output buffer and contine 
7 9 4 i at OUTPUT_FILTER 
17 ¢ 4 IF .SERVICE_STATUS EQL PSM$_FLUSH 
17 4 THEN 
1724 5 BEGIN 
1725 5 catpse C.SCBCPSM$A_10B),10B_V_FLUSH_PENDING] = 1; 
1726 5 SCBLPSM$SB_STATE] = OuTPUT_FICTER; 
1727 & : 
1728 4 
1729 3 END; 


Page 13) 
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DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 21 
| O08 FUNCTION. DISPATCH = Main Syubient control loop 1o-g8=1 Re 95:39:58 PRTSMB.SRC DEePatin.o$3s1 . 14) 

; 795 1730 3 CINPUT_FILTER]: 

; £38 1731 4 BEGIN 

; 79 17 ¢ 4 

; 798 17 4 ! Locate the input filter 

; 799 1734 4! 

; 4 V7 5 2 BIND FILTER = PSMSSRVCPSMSK_INPUT_FILTER,O,0,0,0] : SBBLOCK; 

3 $0 17 $ 4 

; 80 1738 4! If no filter then go to filter completion 

; 804 1739 4! 

; 805 1740 4 IF .FILTERCSRV_A_SERVICE] EQL 0 

; B06 1741 47 

; 80 1246 4 LEAVE CASE_STATEMENT; 

; 808 1743 4 

; 809 1744 4 

g s\9 1M? 2 Copy the descriptor (any class) and initialize the old one (dynamic) 

3 Big 1747 & COPY_QUAD_ (SCBCPSM$Q_USER_RECORD], SCBCPSM$Q_INPUT_RECORD]); 

; 81 1748 4 INIT_DYN_BESC_ (SCBCPSMSQ_OSER_RECORD)); 

: 814 1749 & 

: 815 1750 4 ’ 

: 816 1751 4 ! Initiate the filter operation 

; 817 1726 4! 

; 818 1753 4 SCBCPSMSL_SERVICE_STATUS] = BLISS ( : : 

: 819 1754 4 -FILTERCSRV_A_SERVICE), ! = input filter service 

; 820 1755 4 $cB ! - SCB address by reference 

; 821 1756 4 SCBCPSMSR_USER_CONTEXT_AREA], i = user context area 

; 822 1757 4 UPLIT (PSMS$K_FORMAT), ! = FORMAT function 

; 823 1758 4 SCBCPSM$Q_INPUT_ RECORD], ! = input record descriptor 

: 824 1759 4 SCBCPSM$L_CARCON), ! = input carriage control | 

; 825 1760 4 SCBLPSM$Q_USER_RECORD), ! = quadword to receive descriptor 

; 826 1761 4 SCBCPSM$L_CARCON)); ! © output carriage control 

3 Ser 1766 4 

; 828 1763 3 END; 


] 
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| basearen Print syep tent = main dispatch routines vs Sep 97 1388 0g: 19: 99 AX=11 Bliss-32 V4.0-74 Page 22 0 
iV FUNCTION_DISPATCH = Main symbiont control loop 14-Sep 75 PRTSMB.SRCJDISPATCH.B32;1 (14) V 
3 0 1764 3 CINP ut _FILTER_COMPLETION): ; 
3 1 1702 2 BEGIN : 
3 § 1787 2 Initialize the input record descriptor (static) 
; 835 4 4 Srasaat pen SDESC_R1 ; 3 
; 4 § ier : SCBCPSMS$Q_USER RRECORD) ! Input record descriptor : 
3 Hee \i7e 4 JECTOR SCBCPSMS$Q_INPUT_RECORD 0} ' RO => size P 
; 839 1773 4 VECTOR CSCBLPSM$Q~INPUT-RECORD].1)5; i RI => address ; 
; 840 1774 4 F 
3 ne 1775 4 : 
: +g 1776 4! If the first byte of the record was used for carriage control 3 
; ob A Gs 2 (eg. FORTRAN) then remove it from the record descriptor ; 
; «845 1779 4 IF CARRIAGE CONTROL (.SCB) EQL PSMSK_FIRST_CHAR_USED : 
; 846 1780 4 THEN 3 
3; 847 1781 5 BEGIN 3 
; 848 17ee 5 DECREMENT_ (SCB_SIZE_ (CINPUT_RECORD)); : 
; 849 178 5 INCREMENT _ (SCB_ ADDR— (INPUT “RECORD)); 3 
; 850 1784 4 END; $ 
s >} 1785 4 3 
; B26 1786 4 F 
; 1787 4 ! If this is an offset read (that is, one that is to begin in the : 
; 854 1788 4 ! middle of a record) then adjust the record descriptor by the offset $ 
s 835 1789 4 ' value from the checkpoint. é 
; 856 1790 4! 3 
; 857 1791 4 IF TESTBITSC (SCBCPSM$V_READ_OFFSETJ) F 
; 858 1736 4 THEN F 
; 859 1793 5 3 
; 860 1794 § BIND CHECKPOINT = .SCBCPSM$A_CHE si al SBBLOCK; 3 
; 861 1795 5 -SIZE_ CINPUT_RECORD) = .SCB es ize. (INPUT RECORD) 3 
; 86 1796 5 - .CRECKPOINTCSMBMSGSW_ OF F SE TJ; 3 
; 86 1797 5 SCB_ADDR (INPUT_RECORD) = .SCB ADDR. (INPUT_RECORD) F 
; 864 1798 5 CKPOINTCSMBMSGS$W OFF ser) é 
; 865 1799 5 SCcB PSHSL. CARCON) = . CHECKPOINT SMBMSGSL CARCON); 3 
3; 866 1800 5 SCBLPSMSL— _RECORD_NUMBER) = . CHECKPOINTCSABMSGSL “RECORD NUMBER]; é 
; 867 1801 4 END; F 
; 868 1802 4 $ 
; 869 1803 4 3 
; 870 1804 3 END; : 


Soe 


bisrn 4 Print sree tent = main dispatch routines 

v04=" FUNCTION_DISPATCH = Main symbiont control loo 

: 87 1805 3 CFORMAT) 

5 B87 1 06 4 BEGIN 

; 74 1807 4 

3 f? 1308 2 } Locate the main format routine 

; 44 1810 4 BIND FILTER = PSMSSRVCPSMSK_MAIN_FORMAT,0,0,0,0) 
: 79 isi¢ 4 

; 880 1815 4 ! Initiate the FORMAT function 

; 881 1814 4} 

: 88 1815 4 SCBLPSMSL S RVICE LSTATUS] = BLISS ( 

: 88 1816 4 ILTERCSRV_A-SERVICE), zz 
; 884 1817 4 ste i. 
> 885 1818 4 SCBCPSM$R_USER CONTEXT AREA], ie 
; 886 1819 4 UPLIT (PSMS$K AT) ie 
; 887 1820 4 SCB PSms_ INPUT RRECORD), i 
; 888 1821 4 SCBLPSMSL~CA i 
: 889 1828 4 SCBLPSM$Q_OUTPUT BUFFER, i 
: 890 1823 4 0); i 
: 891 1824 4 

: 892 1825 3 END; 


, esseesy96e 99:39:90 
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PRTSMB.SRCJD 


: $BBLOCK; 


format service 

SCB address by reference 
user context area 

FORMAT function 

input record descriptor 


input carriage control 
output buffer descriptor 
unused function argument 
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vo UNCTION. DISPATCH = Main Bymbiont control loop 127368718 4 95:39:90 PAT SMB’ SRE IDI SPATCN. 09951 ’ RTS 
94 CFORMAT_COMPLETION]: 
95 BEGIN 
39 ! If succesfull then block multiple input records into a single 
a8 output buffer by continuing at READ. 
900 if .SERVICE_STATUS 
901 THEN 
90 peste 
90 SCBLPSM$B_STATE] = READ; 
904 LEAVE CASE_STATEMENT; 
pot END; 
307 | 
908 If starting an escape sequence then mark escape in progress. 
909 : Insure that there are at least two bytes remaining in the output 
910 buffer to allow two-byte escape sequences to be assembled. 


en et me ee em 


P 
F 

3 1 3 
; 1859 
; 1 4 
: i 
; 1831 4 
; 1888 
; 1834 
; : 5 
; 1887 
; 1838 4 
; 1839 4 
; 1840 4 
; 1 4 
: 911 1868 
; aig 18 $ ? Uf SERVICE STATUS EQL PSM$_ESCAPE 
: 914 1846 5 BEGIN 
> 915 1847 5 SCBLPSM$B_ESCAPE_STATE) = 0; 
; 916 1848 5 SCB PSMSV"ESCAPE-IN PROGRESS) = 1; 
; i? 18 3 5 SCBLPSM$B~STATE) = FORMAT; 
; 919 1851 2 ! If there are at least two output bytes remaining then continue | 
3 380 8 ¢ 5 at FORMAT, else write the buffer. 
; 92¢ 1854 ; iF ,SCB_SIZE_ (OUTPUT_BUFFER) GTRU 2 
: 92h 1856 5 SCBLPSM$B_STATE] = FORMAT; | 
; 925 1857 5 LEAVE CASE_STATEMENT; | 
: 926 1858 4 END; 
OT 
: 3¢p HF 1 ? See if format service requesting suspension (OSC) 
; 931 18 $ ‘ if SERVICE STATUS EQL PSM$_SUSPEND 
; 933 1865 5 BEGIN | 
3 934 1866 5 SUSPEND_SERVICE (.SCB); | 
3; 939 1867 5 SCBCPSMS$B_STATE) = FIND_WORK; 
; 936 1868 5 LEAVE CASE_STATEMENT; 
: 937 1869 4 END; 
38 Ie 
; 940 1872 4 | If output buffer full then write it 
; 942 1874 4 iF .SERVICE_STATUS EQL PSM$_BUF FEROVE 
: 944 1876 4 LEAVE CASE_STATEMENT; 
: Bt 1878 
; th i ? | Must be a new page 
> 949 1881 4 IF .SERVICE_STATUS NEQ PSM$_NEWPAGE THEN CODEERR_ ; 
; 950 1882 4 


: 9 
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-000 FUNCTION_DISPATCH = Main symbiont control loop 14-Sep-1984 12:55: PRTSMB.SRCIJDISPATCH.B32;1 (16) v¢ 
; 1883 4 
; 826 eee 4 ! New page -- save a checkpoint if 32 pages have passed or if 
; ger 1o32 ? ; we are stopping on this page 
; 955 1889 4 iF (. aaiase tile PAGE] AND %B '11111° + 0 
; 956 1888 4 OR .SCBLPSMSL_PAGE] GEQU .SCBLPSMS$L_STOP_PAGE] 
3 957 1889 4 TH 
; 958 1890 4 SAVE_CHECKPOINT (.SCB); 
3; 99 1891 4 
; 960 1836 4 
; 961 1895 4 | If we are stopping on this page then flush the output stream 
3 368 199 ? and reset the ‘‘new page’’ trigger 
; 964 1896 4 IF _.SCBCPSMSL_PAGE] GEQU .SCBCPSMS$L_STOP_PAGE] 
; 965 1897 4 THEN 
; 966 1898 5 BEGIN 
; 967 1899 5 SEBLOCK C. Srepeenee 10B],10B_V_FLUSH_PENDING] = 
; 968 1900 5 SCBEPSM $L_LINEJ 
; 969 1901 5 LEAVE CASES STATEMENT; 
; 970 13 4 : 
; 971 1903 4 
; 97 1904 4 
.. or 1905 4 ! Check for string search -- if the output buffer is not empty 
3; 974 1906 4 | then force a buffer write 
; 975 1907 4! 
; 976 1908 4 IF .SCBCPSM$V_SEARCH_FOR_STRING] 
3; O77 1909 4 THEN 
: «4978 1910 5 BEGIN 
3; 979 1911 5 BIND I0B = .SCBCPSM$A_I10B) : S$BBLOCK; 
; + + ba 2 a SIZE_ (OUTPUT “BUF FER) NEQ .DESC -SIZE_ (10BC10B_Q_BUFFERI) 
; 982 1914 5 !' Reset the new page trigger and force a buffer write 
; 983 1915 5 : 
> 984 1916 6 BEG 
; 985 1917 6 SCELPSMSL LINE} 
; 986 1918 6 LEAVE CASE_ STATEMENT; | 
: 987 1919 5 “ 
; 988 1920 4 END; | 
; 989 1921 4 
: 990 1922 4 
3 44 196? 2 Check for page headers and/or page setup 
; 9953 1925 4 IF iy FLAG_ (PAGE_HEADER) THEN = hd a -LIST_ (PAGE_HEADER) = 1; 
: 994 1366 4 IF .SCB Tee TPAGE_SETUP_MODULES) N 
; 444 1355 : OR .PSMSSRVCPSMSK _PAGE_SETUP, SRV_V NOSER. SUPPLIED] 
; 997 1929 4 SERVICE_LIST_ (PAGE_SETUP) = 1; 
; 998 1930 4 
3; .999 1931 4 f ; . 
: 1000 1336 4 ! If page headers or setu required then suspend current input service 
: 1001 1935 4 ! and continue at FIND_WORK. 
3; 1002 1934 4! 
3; 1003 1935 4 IF .SERVICE_LIST_ (PAGE_HEADER) 
3; 1004 1936 4 OR .SERVICE “LIST= (PAGE-SETUP) 
: 1005 1937 4 THEN 
: 1006 1938 5 BEGIN 
; 1007 1939 5 SUSPEND_SERVICE (.SCB); 
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von FUNCTION. DISPATCH = Main Syabiont control loop 12-388: 382 95:29:38 PATSMB SREIDESPATCN 04951 . 88 

! 

: 1008 1300 H SCBCPSM$B_STATE] = FIND_WORK; 
; 1009 194 LEAVE CASE_STATEMENT; 
; 1010 1306 4 END; 
; 1011 1945 4 
3 1 1 1944 4 
; 101 1945 4! If new page with no side effects then continue at FORMAT 
5 oie MP ? ; else go to next state (output_filter) 
; 1016 1948 4 IF NOT .SCBCPSM$V_SEARCH_FOR_STRING] 
; 1017 1949 4T 
3; 1018 1950 4 SCBCPSM$B_STATE] = FORMAT; 
3; 1019 1951 4 
: 1020 1952 3 END; 
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\ -00 TION_DISPATCH = Main symbiont control loop 14-Sep-1984 12:5 PRTSMB.SRCJDISPATCH.B32;1 
; OUTP PUT FILTERS: 
EGIN 


Locate the output filter service, the output block, and the output record 


BIND FILTER = PSMSSRVCPSM$K ete pee 0,0,0,0] : $BBLOCK; 
IND 10B = »SCBEP SM$A_10B] = + are 
IND 1OBREC = 10BC1I0B_a Q_RECORD VECTOR; 


' Clear the old record descriptor (any class) and set it to 

the size of the blocked record buffer (static) 

CLEAR STRING. t10BREC): 

10 OBRECE I +3 R_ (10BCI0OB_Q BUFFERI 

1OBREC CCO3 = .$ B ADDR (OUTPUT_BOFFER) - Disc ADDR. (10BC10B_Q Q_BUFFERI); 
IF .JOBRECCO) CeRU DESC SITE. (LOBCIOB_Q_BUFFERJ) THEN CODEERR_ 


S$ 

0 

3 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

. 

: If no output filter then bypass service call 
: IF .FILTERCSRV_A_SERVICE] EQL 0 
2 LEAVE CASE_STATEMENT; 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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Copy the output record decriptor (static) and reinitialize it (dynamic) 
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a kk a a kk kk kk a at 
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49 

50 COPY QUAD. (CIOBREC, SCBCPSMSQ _OUTPUT_BUFFER]); 

51 INIT_DYN_BESC_ (IOBREC); 

3¢ Call the output filter service 

56 SCBCPSMSL SERVICE_STATUS] = BLISS ( 

57 FILTERCSRV_A_SERVICE), ! = output filter service 

58 ste ' - SCB address by reference 
59 SCBLPSMS$R_USER_CONTEXT_AREA], i = user context area 
060 9 UPLIT (PSM$K_FORMAT), ' = FORMAT function 
061 9 SCBCPSM$Q "OUTPUT _BUFFERI, ! = input to filter 
062 9 ! = unused function argument 
063 9 1OBREC, ! = output from filter 

064 9 0); ! = unused function argument 
065 9 

066 9 END; 
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OUT FILTER COMPLETION: 
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Locate the OUTPUT block 
BIND I10B = .SCBCPSM$A_I0B) : $BBLOCK; 


Check for string search 
ee en SR 
eee (.SCB, SCBCPSM$Q_SEARCH_STRING], IOBCIOB_Q_RECORD]) 


! String found -=- release the output buffer, set the start 
! page, and continue at RESUME 


GIN 
ERT TAIL_ (.SCBCPSM$A_10B], SCBCPSM$Q_BUFFER_QUEUEJ); 

SCBCPSM$A_10B8) = 0; 

SCBCPSM$L_START_PAGE] = .SCBCPSM$L_PAGE); 


! If sitting at top of page then we really want to restart at 
the previous page 


if .SCBCPSM$L_LINE] LEQU 1 
AND .SCBLPSMSC_COLUMN] LEQU 1 
AND .SCBLPSM$L~PAGE] GTRU 1 


EN 
* eeuienes. (SCBCPSM$L_START_PAGE]) 


! Mid-page: force RESUME to reposition by fibbing about 
current page 


INCREMENT. (SCBCPSMSL_PAGE)); 
SCBLPSM$B_STATE) = RESUME: 
LEAVE CASE_STATEMENT; 
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Locate the output block and the output service routine 


BIND 10B = .SCBLPSM$A_10B] : $BBLOCK; 
BIND OUTPUT = PSMSSRVEPSM$K_OUTPUT,0,0,0,0] : $BBLOCK; 


Establish the default function as WRITE 
LOCAL FUNCTION : INITIAL (PSMSK_WRITE); 


Se Se Se ee Se Se Se Se ee Se Se ee SH Se Se ae 


} Check for /PASSALL or buffer marked passall (DCS's) 


iF .PRINT_FLAG_ (PASSALL) 
OR .1OBCIOB_V_PASSALLJ 


FUNCTION = PSMS$K_WRITE_NOFORMAT; 


Check for write suppression (searching) 
IF .SCBCPSM$V_SUPPRESS_OUTPUT] 

FUNCTION = PSM$K_WRITE_SUPPRESSED 
INCREMENT_ (ACC_DATA_ (QIO_PUTS)); 


Initiate the WRITE function 


SCBCPSM$L_SERVICE_STATUS] = BLISS ( 
-OUTPOTCSRV_A_SERVICE], 
SCBCPSM$A_1087, 
SCBCPSM$R_USER_CONTEXT_AREA], t area ; 
FUNCTION, WRITE or WRITE_SUPPRESSED function 
I1OBC10B_Q_RECORDJ, record desc 

0); : <not used> 


write service 
I0B address by reference 
user contex 


Disconnect the I10B from the SCB 
SCBLPSMSA_I0B] = 0; 


Asynchronous? 
iF ;, SCBLPSMSL_SERVICE_STATUSJ EQL PSM$_PENDING 
BEGIN 


! Yes: don't wait for completion unless we are flushing the output stream 
Either way, PSMS$REPORT will release the I0B 


if NOT .JOBCIOB_V_FLUSH_PENDING) 
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SPATCH = Main symbiont control loop 14- 35 PRTSMB.SRC DISPAT CH.B32;1 (19) 
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S$] = SS$_NORMAL; 
AT 


INSERT_TAIL_ (IOBCIOB_Q_QLINKS], SCBLPSM$Q_BUFFER_QUEUEJ); 
If successful, and not flushing, then continue at FORMAT 


if .SCBCPSMSL_SERVICE_STATUS] EQL SS$_NORMAL 
AND NOT .JOBCTOB_V_FLOSH_PENDING 


HEN 
m SCBCPSM$B_STATE] = FORMAT; 


S$ 
ON_ 
5 
6 
4 
Synchronous return; release the 10B 
5 
5 
5 
5 
5 
5 
5 
5 
4 
4 
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TION DISPATCH = Main symbiont control loop 14-Sep-1984 12:55: PRTSMB.SRCIJDISPATCH.B32;1 
CWRITE_COMPLETION): 
BEGIN 


! If the 10 failed then the error has already been stored and task abort begun. 
! continue at READ. 


if NOT .SCBCPSMSL_SERVICE_STATUS] 
THEN 


BEGIN 
SCBLPSM$B_STATE] = READ; 
LEAVE CASE_STATEMENT; 


! The write was successful -- we are here because the output stream 
! is being flushed for one of: 


' 

' 

! 

: 1) Last page reached (PRINT /PAGE=Last) 

' ) Job controller requested pause (STOP /QUEUE) 

; A page search operation has —e 

; 4) An alignment operation has completed (START /QUEUE /ALIGN=pages) 
5) We are in sheet feed mode (DEFINE /FORM /SHEET_FEED) 

' 

! 


i Respond based on why we are flushing 


If pausing then mark the stream pending and respond to the job controller 
af EEN aE) EQL SMBMSG$K_PAUSE_TASK 
BEGIN 
SMBSSEND_TO JOBCTL ( 

SCBCPSMSL_STREAM_INDEX], ! = stream number 
SCBCPSM$L_REQUEST_RESPONSE]); ! = request response 
SCBCPSMSV_RESOME WAIT] =_1; 
SCBCPSM$L-SERVICE_ STATUS) = PSM$_PENDING; 
LEAVE CASE_STATEMENT; 


If searching for a string then continue formatting 
if .SCBCPSMSV_SEARCH_FOR_STRING] 
THEN 


BEGIN 
SCBCPSM$B_STATE] = FORMAT; 
LEAVE CASE_STATEMENT; 


: If searching for a page or aligning then go to next state (resume) 


if .SCBCPSM$V_ALIGN) 
OR SB PSM$V~SEARCH_FOR_PAGE] 


N 
LEAVE CASE_STATEMENT; 
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pase $05 FUNCTION DISPA PATCH = Main Syabiont control loop 14- See- 1382 96: 49: 9 Herren Satin; epatin.6%9-1 
s 1 ¢$ 174 & , 
3; 124 175 4! Sheet feeding? 
> 1248 176 4! 
3; 1249 17 4 IF .$BBLOCK EB SAsy Sop PRINT Comte. SMBMSG$V_SHEET_FEEDJ 
; 1250 178 4 AND NOT .SCBLPSM$V_SUPPRESS_OUTPUT 
; 1251 17 4 THEN 
s 1 26 180 2 BEGIN 
: 125 181 LOCAL DEVICE_STATUS; 
3: 1254 136 5 DEVICE_STATUS = . SCBELPSMS$L_DEVICE_STATUS] OR SMBMSG$M_PAUSE_TASK; 
: 1255 183 5 SMBSSEND_TO_JOBCTL ( 
: 1256 2184 5 SCBCPSMSL_STREAM_INDEX], ! = stream number 
3; 1257 185 2 "a (SMBMSG$K_TASK_STATUS), |! = request response 
: 1258 186 ‘ ' = no accountin 
3; 1259 187 5 0 ' = no checkpoin 
; 1500 5188 2 DEVICE. STATUS ! = device status (paused) 
; 1262 2190 5 SCBCPSMSV_RESUME_WAIT] = 
: 126 2191 *§ SCBCPSMSL~ SERVICE etitusa S Psms PENDING; 
3 1264 $136 5 LEAVE CASE_STATEMENT; 
1566 a aeon 
; 1267 2195 4 IF .SCBCPSMSL_SERVICE_LIST] EQL 0 THEN SCBCPSM$B_STATE] = STOP_TASK 
3; 1268 2196 4 ELSE 
3: 1269 2197 4&4 IF .ITEM_PRESENT_ (LAST_PAGE 
: 1270 2198 4 AND .SCBCPSM$L_PAGE] GTRu oF CBLPSMSL _LAST_PAGEJ 
3 1271 2199 & HEN 
3: 1272 2200 4 SCBCPSM$B_STATE) = CLOSE; 
: 1273 2201 4 
3 1274 2202 3 END; 


DISPATCH Print Symbiont = main dispatch routines 18-50 -Sep-1984 AX-11 Bliss-32 V4.0-74 
vbee FUNCTION DISPATC TCH = fain Symbiont control loop ats yi 95: 49: 89 PAT SMB’ SRESDISPATEN 09951 
: 127 3 3 CCLOSE) 

; ! f ¢ ? BEGIN 

; } $6 Q Defend against an attempt to CLOSE a non-existent service 

bk 5) 08 4 IF .SERVICECSRV_A_SERVICE] EQL 0 

3 3 ¢ 09 4 THE 

: 128 10 4 LEAVE CASE_STATEMENT; 

: 1284 11 4 

3; 1285 \§ 4 

3 ! My] 1 2 Initiate the CLOSE function for the current input routine 

; 1288 15 4 SCBLPSMSL SERVICE_STATUS] = BLISS ( 

3: 1289 16 4 ERVICECSRV_A_SERVICE), ! « current input service 

; 1290 § 17 4 se ' = SCB address by reference 

> 1291 18 4 SB nse USER CONTEXT AREA, i = user context area 

3 1 4 2219 & UPLIT (PSM$K _cCOs ' © CLOSE function 

3; 129 2220 4 0 ! © <not used> 

3 1294 2221 & 05; ! = <not used> 

3; 1295 $556 4 

3; 1296 2225 3 END; 
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FUNCTION. DISPATCH = Main Symbient control loop 12-28-1388 95:39:39 PRTSMB.SRC DE SPAten.o$3;1 
4 3 CCLOSE_COMPLETION): 
5 ? BEGIN 
5 : Mark the service closed 
. 2 BITVECTOR CSCBCPSMSL_SERVICE_OPEN], .SCBCPSM$B_SERVICE_INDEX]] = 0; 
1 4 
2 4! If this was a forced EOF and input was nested then pass the 
$se7 : abort flag to the next service, else clear it 
$336 4 if TESTBITSC (SCBCPSMS$V_EOF J) 
9237 4 IF .SCBCPSM$B_INPUT_DEPTH] NEQ 0 
2239 4 SCBCPSM$V_EOF] = 1; 
2240 4 
2241 3 END; 
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sree rent = main dispatch routines 1 
ION_DISPATCH = Main symbiont control loop 1 
STO 
EGI 


! Clear any pending input service routines from the service list and 
! reset the busy and reset flags. 


4 TOP_TASK): 

? BEGIN 

! A stream is ‘active’ if its queue is started. It is busy if it 

re } is currently processing a task. 

4 LOC 

4 ACTIVE_STREAMS : INITIAL (0), ! number of active streams 
: BUSY STREAMS : INITIAL (0) ! number of busy streams 

5 

5 

5 


SCBCPSMSL_SERVICE_LIST] = 0; 

SCBLPSM$V_BUSY] = 0; 

SCBLPSMSV-RESET) = 0; 

! If the job controller did not request an abort then we respond 

: with the asynchronous TASK_COMPLETE message. Otherwise we respond 
! with the current contents of REQUEST_RESPONSE which is presumably 
STOP_TASK or RESET_TASK. 

if - SCBEPSM$L_REQUEST_RESPONSE] EQL SMBMSG$K_START_TASK 

Pe vt ee PSION, REQUEST RESPONSE 2 EQL SMBMSGS$K_RESUME_TASK 


SCBCPSMSL_REQUEST_RESPONSE] = SMBMSGSK_TASK_COMPLETE; 


Notify the job controller 


SMBSSEND_TO_JOBCTL ( 
CBIPSMSL_STREAM_INDEX 


5 j, ! = stream number 
SCBCPSM$L_REQUEST_RESPONSE]), ! = responding to ... 
SCBCPSM$SQ_ACCOUNTING_DATA], ! = accounting data 
0, ! = no checkpoint 
SCBCFSM$L_DEVICE_STATUS] ! = device status 
SCBLPSMST_CONDITTON AREAS i - errors if any 


Now scan to see if there are any active or busy streams 
incr 1 TO PSMSK_MAXSTREAMS = 1 
EGIN 
BIND SCBPTR = .PSM$GL_SCBVEC C.1] : $BBLOCK; 
IF SCBPTR NEQ 0 
THEN 
BEGIN 
IF .SCBPTRCPSM$V_ACTIVE) 
THEN 


INCREMENT, (ACTIVE STREAMS) ; 
IF. SCBPTR PSMSV_BUSY) 


EN 
INCREMENT_ (BUSY_STREAMS); 
END 
END; 


OOOO OOO OW WW WW WW SI NI SNS NSN NNSA AA AAAAAOOUUIUIUNIW 
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END; 
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n symbiont control loop 14-Sep-1984 12:55: PRTSMB.SRC DisPAt 3 
: If no active streams then exit 
if .ACTIVE_STREAMS EQL 0 


SEXIT (CODE = SS$_NORMAL OR STSS$M_INHIB_MSG); 


If no busy streams then purge the working set 
if ;BUSY_STREAMS EQL 0 
SPURGWS (INADR=UPLIT (0, 2X ‘7FFFFFFF')); 
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v04-0 FUNCTIO ISPATCH = Main symbiont control loop 14-Sep-1984 12:55: PRTSMB.SRC DISPAT CH.B32;1 (25) 

; 1405 8 

3 e's 2 } j Wout See conventions resume here 

: 1408 1 ' End of case table 

3; 1409 ¢ i End of CASE_STATEMENT block 

; 1410 ' End of PSMSFUNCTIO ON_DISPATCH routine 


-TITLE DISPATCH Print Symbiont - main dispatch routine 
LIDENT \V04-000\" 

-PSECT CODE,NOWRT,2 

OF 12 OD OC OB OA 09 08 O07 06 05 04 O03 02 O01 00000 ersten 


ee 4.24%. 64 2S. tH Mi the 4 
12 11 11 01 0000F 18, 18,15; 1. 17, 17,°18 : 
00013 .BLKB 
00000002 00014 "LONG 2 : 
000000006 00018 P.AAA: .LONG PSM$_EOF : 
0001827A O001C "LONG 98938 : 
00000004 00020 "LONG §4 : 
000000006 000000006 000000006 000000006 00024 P.AAB: <:LONG PSM$_BUFFEROVF, PSM$_NEWPAGE, - : 
PSM$-ESCAPE, PSM$_SUSPEND ; 
00# 00034 EXPECTED_ERRORS: 
“BYTE  0C20) : 
00000000' 00048 “ADDRESS P.AAA : 
# 0004C¢ “BYTE OCi2) : 
00000000' 0005 “ADDRESS P.AAB ; 
0005¢ *BLKB 36 
00000007 00080 P.AAC: <LONG 7 : 
00000008 00084 P.AAD: <LONG 8 : 
00000004 00088 P.AAE: LONG 4 : 
00000005 O008C P.AAF: .LONG 5 : 
00000003 00090 P.AAG: :LONG 3 : 
00000003 00094 P.AAH: <LONG 3 : 
00000003 00098 P.AAIL: .LONG 3 : 
00000009 0009C P:AAJ: LONG 9 : 
00000002 OOOAO P.AAK: LONG 2 : 
7FFFFFFF QO000000 OO0A4 P.AAL: .LONG 0, 2147483647 : 


-EXTRN BASSEDIT, LBRSCLOSE 

“EXTRN LBR$GET RECORD, ORRSINI CONTROL 
-EXTRN LBRSLOORUP_KEY, LBRSOPE 

~EXTRN tBRSRET RMSSTV, tBRSSET LOCATE 
-EXTRN LIBSTRIM_FILESPEC 

eEXTRN LIBSGET en LIBSFREE_VM 


“EXTRN STRSA v7 _Spese 

SEXTRN SRS ANAL En Speee 

“EXTRN STRSAPPEND, STRSCONCAT , 

-EXTRN STRSCOPY DX, STRSCOPY 

“EXTRN STRSFREET DX, STRSE REE! _DX_R4 
~EXTRN STRSGET1_BX, STRSLEFT 

-EXTRN STREPREFIX. STRSRIGHT 

-EXTRN PSM$S_HANGUP_DISPATCH_ENTRY 
EXTRN PSM$_BUFFEROVF, P 0 
TEXTRN PSMSTESCAPE, PSMS_FLOSH 


-_, 


M10 
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aor 


b.°PATCH Print sree tent 
v04-000 FUNCTION_DISPAT 


M$—NEWPAGE $_NOF 
TRN PSMS-OSCTOOLON, PSM$_PENDING 
TRN PSMS-SUSPEND, PSM$_TOOMANYLEV 
TRN SMBS"INVSTMNGR, SMB$_INVSTRLEV 
TRN SMBS$~NOMORE I TEMS 


ON_AST 
XTRN PSMSGL_STBVET, PSMSGL_MAXBUF 
XTRN PSMSGL~USER CTX | 
XTRN PSMS$SRV, PSASXLATE_ALIGN 
EXTRN PSMSXLATE 8BIT, SYSSEXIT 
-EXTRN SYSS$PURGWS 


eoeeeveeeeeeeeeeeeeee 
MMMMMmMmMmmMmmMmmmmmmmmnecrny 


OFFC 00000 «ENTRY PSMSFUNCTION_DISPATCH, Save R2,R3,R4,R5,R6,-; 1122 | 
R7,R8,R9,R10,R11 : 
SE 14 C2 00002 SuBL2 #20, SP : | 
52 04 AC DO 00005 1S: MOVL  SCB, > 1198) 
54 0220 C2 9€ 00009 MOVAB 544(R2), R4& : 
000000006 &F 64 D1 0000E CMPL  (R4), #PSM$_PENDING ; 
01 12 00015 BNEQ 2$ : | 
04 00017 RET : 
58 O1AC C2 9E 00018 2s: MOVAB 428(R2), R8 : 1209. 
68 D5 0001D TSTL (RB) : 
0B 12 OOOTF NEQ 3$ ; 
52 DD 00021 PUSHL R2 + 1211, 
0000v CF 01 FB 00023 CALLS #1, GET_BUFFER ; 
01 50 €8 00028 BLBS RO, 3$ ; | 
04 00028 RET ; 
5B 027D C2 9E 0002C 38: MOVAB 637(R2), R11 > 1219) 
50 68 9A 00031 MOVZBL (R11), RO : 
50 10 ¢4 00034 MULL2 #16, RO ; 
55 0000000060040 9E 00037 MOVAB PSM$SRVCROJ, SERVICE : 
6E 64 DO 0003F MOVL  (R4), SERVICE_STATUS : 1220 | 
64 01 pO 00042 MOVL #1, (R4) : 1221) 
56 02A7. _ C2~—«s«9E:-«00045 MOVAB 679(R2), R6 : 1226 | 
53 66 9A OO04A MOVZBL (R6), CURRENT STATE : 
66 FFO2 CF43 90 0004D MOVB NEXT STATECCURRENT_STATE), (R6) s 136. | 
57 66 DO 00053 MOVL § SERVICE_STATUS, R7 : 1232. 
33 57 €8 00056 BLBS R7, &$ ; 
51 FF2A CF43 DO 00059 MOVL  EXPECTED_ERRORSCCURRENT_STATE), R1 : 1235. 
59 D4 0005F CLRL  EXPECTEDERROR ; 
51 D5 00061 TSTL =e RV > 1242. 
1B 13 00063 BEQL «6 7$ : 
SA FC OAT 01 ¢3 00065 SUBL3 #1, -4(R1), R10 + 1244 
50 D4 0006A CLR ERROR_INDEX F 
0D 11 b906C BRB 6$ : 
6140 57 D1 O06E 4$: CMPL  R7, (R1)CERROR_INDEX] > 1246 
05 12 0007 BNEQ 5$ ; 
59 01 00 00074 MOVL #1, EXPECTED_ERROR > 1249 
07 11 00077 BRB 7$ > 1248 


| DISPATCH 
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Routine Base: CODE + OOAC 


2024 bytes, 


; Routine Size: 


S 
T 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
$ BEGIN 

§ Setup parameter referencing values 

§ PARAMETER_INDEX_ (SMB_CONTEXT, USER_STATUS); 
2 LOCAL 

§ : REF $BBLOCK; 
§ ; Pick up the context value 

; $CB = .SMB_CONTEXTC); 

; 
| 


| 
| rr 
bisrarcn rint y*eiont = main dispatch routines 16- vide 071352 9 19:08 AxX-11 Bliss-32 He Figg 6 Page 49 DI 
|v OMPLETE_SERVICE = record completion for async. 14-Sep-1984 12:55: PRTSMB.SRCIDISPATCH.B32;1 (26) vO 
|; 161 ZSBITL ‘COMPLETE oSERVICE = record completion for async. function’ 5 
13 161 ! Functional Destripts on: $ 
3 1 : Records completion of an asynchronous service function : 
3 141 i (one that was Orgran ty completed with PSM$_PENDING) : 
3 : and records the completion status. ; 
3 1 4 i Formal Parameters: $ 
3; 141 4 SMB_CONTEXT : address of a SCB or an 108 : 
; 2 3 ; USER_STATUS : address of longword contain completion status F 
3 $ 34 i Implicit Inputs: : 
; § $ non 3 
: 142 34 i Implicit Outputs: r 
: 142 34 ' none 5 
3; 142 34 i 3 
3; 142 35 i Returned Value: 3 
: 142 35 : SS$_NORMAL : 
3: 143 35 i 3 
3 3 35 i Side Effects: 3 
: 3 35 i SCB updated with completions status and DISPATCH called 3 
; H $2 to resume processing 3 
; 3 35 GLOBAL the Cpeancrent 5 F 
; 143 35 SMB_ CONTEXT : REF SLONGWORD, ! $CB or 108 address : 
: $2 USER. Or ATUS : REF SLONGWORD ' Completion status 3 
3 3 
4 : 
4 : 
4 Ps 
4 : 
4 : 
4 ° 
4 ° 
4 : 
4 P 
4 


! If the structure type -- if SCB then we have an SCB, else 
: we have an I10B. 


iF _;,SCBLPSMSB_TYPE] EQL PSM$K_STRUCTURE_SCB 

BEGIN , 

' SCB -- we are complet ing an INPUT function. If not currently 
pending then something 1s wrong. 

ir - SCBCPSMSL_SERVICE_STATUS] NEQ PSM$_PENDING THEN CODEERR_ ; 
Pick up completion status, default is normal. 


SCBCPSMSL_SERVICE_STATUS] = SS$_NORMAL; 
of M « setechieen PRESENT_ (USER_STATUS) 


6 et ead ad ad ee ea Dead at ea ee edad ead dead Bad ad edad abababab ad Hadad adad ad 
Fe oe ae oe ae ot Ft oF at ot ot ot et et ee ee ee et et ee ee ee et et et te 
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ELSE 


BEGIN 
We have an I0B -- we are completing an asycn. output request 


LOCAL 108 : REF S$BBLOCK; 
LOCAL OUTPUT_STATUS : INITIAL (SS$_NORMAL); 


Locate the 108, check its structure type, and locate the SCB 
108 = .SCB; 
IF .10BCI08_B TYPE) NEQ PSMSK_STRUCTURE_IOB THEN CODEERR_ ; 
SCB = .IOBLTOB_A_CONTEXT); 
Pick up the output completion status if specified -- default is normal 
if PARAMETER_PRESENT_ (USER_STATUS) THEN OUTPUT_STATUS = .USER_STATUSL]; 
If no errors ... 
if .OUTPUT_STATUS 
THEN 
BEGIN 
Update accounting 
INCREMENT_ (SCBCPSM$L_OUTPUT_Q10S]); 


! If we have a checkpoint associated with this output buffer or 
if we are marked as stalled ... 


Te ah ab ab Ab Al tet te el et ee he pe el pl tel el et tel et et ed Dt et dee et ee ee kt et et et 
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fololololojia) «Ssh eh eis) SNAG 
SFSESlS33SzZ WOOO OW MOO COMODO ODOO~ 


& 


iF .10BCIOB_V_CHECKPOINT PENDING] 
OR. , SBLOCKTSTBLPSMSL_DEVICE_STATUSI, SMBMSG$V_STALLED] 


N 

BEGIN 

Then prepare to notify the job controller 

LOCAL CHECKPOINT : INITIAL (0); 

LOCAL CKP_DESC : VECTOR C2) PRESET (C0J=0); 

LOCAL REQUEST_RESPONSE : INITIAL (SMBMSGS$K_TASK_STATUS); 
Output completion indicates we are no longer stalled 


SBBLOCK CSCBCPSMSL_DEVICE_STATUS],SMBMSGSV_STALLED] = 0; 
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! If we are also pausing then set the request response _ 
to PAUSE_TASK. By default it is TASK_STATUS which indicates 
i 


SCBCPSMSL_SERVICE_STATUS] = .USER_STATUSC); 

Call function dispatch to resume processing 
PSMSFUNCTION_DISPATCH (.SCB); 
END 

3 

3 

3 

3 

4 

4 

4 
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5 

5 
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; 

: an asynchronous (unexpected) message fo the job controller. 
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IF_ .10BCIOB_V_PAUSE _PENDING) 
REQUEST_RESPONSE = .SCBCPSM$L_REQUEST_RESPONSE); 


If a checkpoint is present setup a descriptor for it 
iF .10BCIOB_V_CHECKPOINT_PENDING] 


THEN 
BEGIN 
CRE -DESCEO) = SMBMSG$S_CHECKPOINT_DATA; 
CKP-DESCC1) = IOBCIOB_T_CHECKPOINT_DATA); 
CHECKPOINT = CKP_DESC; 


' Notify the job controller of one or more: 


- we have paused 
- here is a checkpoint update 


SMBSSEND_TO_JOBCTL ( 
SCBCPSMSL_STREAM_INDEX], 
REQUEST_RESPONSE, 


' 
' 
- we are not stalled 
i 


stream number 
request response 


0, no accounting 
. CHECKPOINT, checkpoint or 0 
BCBLPSASL DEVICE STATUS. device status 
END; 
END 
ELSE 


Store any errors other than cancel or abort 
Lf OUTPUT_STATUS EQL SS$_CANCEL OR .OUTPUT_STATUS EQL SS$_ABORT 


SE 
PSMSSTORE ERRORS (.SCB, PSM$_WRITEERR, 1, SCBCPSM$Q_DEVICE_NAME], 
.OUTPOT_STATUS); 


! If we are flushing the output stream (that is, suspending further 
bee sere es unas teach Siak"tas etees Seamer 
' 
ul - 1OBC10B_V_FLUSH_PENDING] 
SCBCPSMS$L_SERVICE_STATUS] = .OUTPUT_STATUS; 
Release the I0B 
INSERT_TAIL_ (JOBCIOB_Q_QLINKS], SCBCPSM$Q_BUFFER_QUEUE]); 
Call dispatch to resume processing 
yeaah eet sieettea (.SCB); 
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v04-000 COMPLETE SERVICE = record completion for async. 14-Sep-19 4 95:39:09 PRTSMB.SRC DISPAT CH. 633.1 . (26) 
7E bs OA8 CLRL -(SP) : 
g¢ A F AA PUSHAB REQUEST RESPONSE + 2470 
022C Ce OF AD PUSHAB 5 : 
000000006 00 FB 00081 CALLS #5, SMBSSEND_TO_JOBCTL + 2476 
2 11 00088 BRB : 2418 
00000830 8F 4 D1 OOOBA 9$: CMPL OUTPUT_STATUS, #2096 + 2482 
19 13 000C1 BEQL : 
2c 54 D1 000C3 CMPL OUTPUT_STATUS, #44 : 
14 13 000C6 BEQL : 
54 DD 900¢8 PUSHL OUTPUT_STATUS + 2487. 
4C A2 9F OOOCA PUSHAB 76(SCBY : 2486. 
gi DD 900Cp PUSHL #1 : 
010610D2 F DD OOOCF PUSHL #17174738 : 
32 DD 000D5 PUSHL § : 
OOOOV CF 05 FB 000D7 CALLS >, PSM$STORE_ERRORS : 
05 2c.) COA 01 €1 OO0DC 10$: BBC 44(10B), T1$ + 2493) 
0220 C2 54 DO 000E1 MOVL OutPuT. STATUS. apteesce) + 2495 | 
0178 De 63 OE O00E6 118: INSQUE (10B),~a376(S + 2499 | 
52 DD OOOEB 12$: PUSHL S$ : 2503 | 
F726 CF 01 FB OOOED CALLS #1, Setanta onel : | 
50 01 00 000F2 MOVL #1, RO ; 2508. 
04 O00F5S RET : 


; Routine Size: 246 bytes, Routine Base: CODE + 0894 
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ODULES = queue text modules for inclus 14-Sep-1984 95:39:09 LPRTSMB SRE DISPATCH.B (27). 
SBTTL "INCLUDE_MODULES = queue text modules for inclusion’ 


Functional Description: : 
Adds the specified modules to the queue of modules 


oe 
t. 


z 
oOo O-~ 


= 
uw 
co 
oo 

WR OC OOWNDA VE WD 0 DOONAN EWN 9 ODNAUE WN (OO ONOAUE WN" OOONOUSWh—OW” rs 


M 

h 

' 

i 

that are waiting to be included in the input stream 
i Formal Parameters: 
: SMB_CONTEXT : assumed to be the SCB address 
MODOLE_LIST : descriptor of comma separate module List 
i Implicit Inputs: 
none 
i Implicit Outputs: 
none 
i Returned Value: 
non 
i 


Side Effects: 
The modules are appended to the module List 


GLOBAL ROUTINE PSMSINCLUDE_MODULES ( 
SMB_ CONTEXT : REF $LONGWORD, ' $CB address : 
MODOLE_LIST : REF VECTOR ! Module List descriptor 
BEGIN 


LOCAL SCB : REF $BBLOCK; 


Locate the SCB 
SCB = .SMB_CONTEXT(I; 


Check for empty List 
if -DESC_SIZE_ (.MODULE_LIST) EQL 0 THEN RETURN SS$_NORMAL; 


MMMNININ 2 2 2 2 2 2 SS | SH DOOCOCODOCOSOOCOOOODOOWOOOOO® 


MOC OBNA UE WR 0 OONOA UE WN 0 OONOA UE WW | 0 OONOUFWR “OO ONOUFS WOW” 


! If the pending List is non-empty then append a comma prior 
: to new modules 


DESC_SIZE_ (SCBCPSM$Q_MODULE_LISTJ) NEQ 0 
STRSAPPEND (SCBCPSM$Q_MODULE_LIST], %ASCID ',"); 


a 
THEN 


Append the new modules 

STRSAPPEND (SCBCPSM$Q_MODULE_LISTJ, .MODULE_LIST); 
SS$_NORMAL 

END; 
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DISPATCH Print Symbiont = main dispatch routines 1hess -1984 02:10: AX=-11 Bliss-32 V4.0-74 Page 55 01S 
rat INCLUDE MODULES = queue text modules for inclus 12-8 08- 1 3pe 1 19:90 PATSMB’SReID] <PATCY. 63951 ns (27) v04 
$4 
O98A -BLKB 2 RB 
00 90 00 gf tht P.AAN: .ASCII \,\<0><0><0> : $< 
010E0001 00990 P.AAM: <LONG 17694721 : 3 2 
00000000°* 00994 «ADDRESS P.AAN ; : § 
: 
000C 00000 «ENTRY PSMSINCLUDE_MODULES, Save R2,R3 ; 2530 $< 
53 00000000G 00 9€ 00002 MOVAB STRSAPPEND, R3 : S¢ 
50 04 BC DO 00009 MOVL @SMB_CONTEXT, SCB : 2541 | 
08 BC B3 0000D TSTW @aMODOLE_LIST 3 2546 $< 
19 13 00010 BEQL : a 
52 01CC CO a 00012 MOVAB 460(SCB), R2 : 2552 B¢ 
62 BS 00017 TSTW (R2) : B 
08 13 00019 EQL 1$ : te 
DA AF 9F 0001B PUSHAB P.AAM 3: 2554 i 
52 0D OOOIE PUSHL R2 : 3 
63 02 FB 00020 CALLS #2, STRSAPPEND : $4 
08 AC DD 00023 18 PUSHL MODULE_L ; 2559) a4 
52 DD 00026 PUSHL R2 : $< 
63 02 FB 00028 CALLS #2, STRSAPPEND 3 $4 
50 01 DO 0002B 2$: MOVL #1, RO 3: 2563) | 
04 0002E RET ; | 2 
; Routine Size: 47 bytes, Routine Base: CODE + 0998 5 § 
3 
a ¢ 
a < 
$< 
S¢ 
e¢ 
- a 
$< 
a4 
g¢ 
3 ¢ 
i 2 
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2601 

260 

260 
2604 
2605 
86 2606 
87 2607 
88 2608 
89 2609 
90 2610 
91 2611 
69 olg 

69 61 
694 614 
695 615 
696 616 
697 617 
698 618 
99 619 
700 2620 
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biont = main dispatch routines 16- aE -1984 08: 19: 0 AX-11 Bliss-32 V 
BIONT = initialization/main entry poin 14- ~3ep-19 4 :5 PRTSMB.SRC DI SPAT 
SBTTL 'PRINT_SYMBIONT = initialization/main entry point for print symbiont' 
Functional Bescription: 


Initializes the print symbiont and begins processing 
Formal Parameters: 
STR 


EAMS : Number of streams to allow (1-16) 
BUFLIM : Maximum output buffer size to allow 
USER_SIZE : User work area Size to allocate 


Implicit Inputs: 
none 

Implicit Outputs: 
none 


m 
M 
x 
' 
i 
i 
i 
i 
i 
i 
' 
i 
i 
' 
i 
i 
i 
i Returned Value: 

i non 
i 

i 


Side Effects: 


GLOBAL ROUTINE PSMSPRINT ( 
STREAMS : REF SLONGWORD, 

BUFLIM : REF $WORD, 

USER_SIZE : REF $WORD 


Symbiont processing is initiated 


BEGIN 
: Setup for parameter referencing 
PARAMETER_INDEX_ (STREAMS, BUFLIM, USER_SIZE); 
BUILTIN FP; 
LOCAL 
ARG_DESC : SDYNAMIC_DESC, 
; Privileges needed by standard symbiont 
PRIVILEGE. MA MASK: SOP OCEL SS PRESET ( 


PRYSY_ALLSPO i. 
PRVSV“LOG 10) = 1. 
PRV$V~PHY~10) = 1. 
PRV$V_READALLJ = 1 
PRVS$V~SHARE J = 1$, 

MAXSTREAMS : INITIAL (1) 


Create an item List for GETSYI call 
BIND ITMLST = SITMLST_UPLIT (C(I TMCOD=SYIS_MAXBUF, BUF ADR=PSMS$GL_MAXBUF )); 


? j Estebl toh the main signal handler 
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7 
6 
2662 
7 P 2665 
7 2664 
7 2665 
7 2666 
747 2667 
748 2668 
749 669 
750 670 
751 671 
752 67 
753 267 
754 sore 
755 675 
756 $076 
757 267 
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mbio 
ONT = initializat 


] 12:5 
.FP = HANDLER; 


on/main entry poin 14-Sep-19 


} Get the needed priv's 
SIGNAL_IF_ERROR_ ($SETPRV (ENBFLG=1, PRVADR=PRIVILEGE_MASK)); 


Get the value of the sysgen parameter for maximum buffer size 

SIGNAL _IF _ERROR_ (SGETSYIW (ITMLST=ITMLST)); 

! Compute the maximum allowed buffer size as the smaller of the 

system Limit and the user Limit, less 100 to allow for $010 overhead 


PSMSGL_MAXBUF = .PSM$GL_MAXBUF - 100; 
IF PARAMETER_PRESENT_ (BUFLIM) 


E 
IF; PSMSGL_MAXBUF GTRU .BUFLIMC) 
PSMSGL_MAXBUF = .BUFLIMC); 


Store the maximum streams value supplied by the user 
if PARAMETER_PRESENT_ (STREAMS) 
MAXSTREAMS = .STREAMSC]; 


Store the user context area size requested by the user 
if PARAMETER PRESENT. (USER_SIZE) 
PSMS$SGL_USER_CTX = .USER_SIZEC]; 


! Call the SMBS facility to initialize symbiont environment and 
message interface to the job controller 


SIGNAL_IF_ERROR_ (SMBSINITIALIZE ( 
UPCIT” (SMBMSG$K_STRUCTURE_LEVEL), 


I 
PSMSRECEIVE_MESSAGE_AST, 
MAXSTREAMS) J; 


Purge the working set 

SPURGWS (INADR=UPLIT (0, 2X "7FFFFFFF')); 
! Loop forever at non-ast level, hibernating. Nearly all symbiont activity 
! occurs at ast-level, but a few functions occur at non-ast. If woken from 
hibernate then look for non-ast work to do. 

WHILE 1 
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P.AAO 
SYSSSETPRV, SYSSGETSYIW 
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DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 02:10: 
v04-000 PRINT_SYMBIONT - initialieation/main entry poin 12286871 382 93:59:99 
; 1758 ors DO 
; 1759 67 BEGIN 
; 1760 680 PSMSWAIT_FOR_NON_AST (ARG_DESC); 
; 1761 681 4 BEGIN 
; 1706 6 ¢ 4 ; 
; 176 6 4 ! Argument List pointed to by arg_desc is a longword array of 
: 1764 684 4 ' the following values: 
; 1765 685 4 : 
; 1766 2686 4 : 93 = $CB 
; 1767 2687 4 : 1 = AST routine to activate after user routine 
: 1768 688 4 : $4 = AST parameter for AST routine 
3 1769 689 4 : ; = User level routine 
; 1770 690 4 : 4 = User level argument count 
: 1771 691 4 : 5]:Cend] = User level argument List 
; 1778 2692 4 : 
3s iv? 2693 4&4 LOCAL SCB : REF $BBLOCK; 
3 1774 2694 4& BIND ARG_VECTOR = .DESC_ADDR_ (ARG_DESC) : VECTOR; 
3: 1775 2695 4 
; 1776 2696 4 SCB_= .ARG VECTOR (0); 
g Vere $008 : SCBCPSMSL_NON_AST_STATUSJ = CALLG (ARG_VECTOR(4], .ARG_VECTOR(3]); 
3; 1779 2699 4 IF .ARG_VECTORC1) NEQ 0 
; 1780 2700 4 THEN 
; 1781 P 2701 4 SIGNAL_IF_ERROR_ (S$DCLAST (ASTADR=.ARG_VECTOR(1]), 
: HA oie 4 ASTPRM=.ARG_VECTOR[2])); 
; 178 2703 3 END; 
3: 1784 2704 $ END; 
3 1785 2705 
: 1786 2706 2 SS$_NORMAL 
3: 1787 2707 2 
3; 1788 2708 1 END; 
009C7 -BLKB 1 
104F 0004 009C8 P.AAO: .WORD 4, 4175 
000000006 009CC -ADDRESS PSMSGL_MAXBUF 
00000000 -LONG 0 
00000000 00904 LONG QO 
00000001 00908 P.AAP: .LONG 1 
7FFFFFFF QO0000000 OO9DC P.AAQ: .LONG 0, 2147483647 
ITMLST= 
-EXTRN 
-EXTRN SYSSDCLAST 
003C 00000 «ENTRY 
55 000000006 00 9€ its MOVAB PSM$GL_MAXBUF 
54 000000006 00 9%€ 00009 MOV Ll $SIGNAL, R4 
5E oc C B00 19 SUBL a SP 
06 AE 020 8F B 9001 MOVW #5206, ARG _DESC+2 
08 AE D4 00019 CLRL ARG bg scan 
80400090 ti Db BRS PUSHL #-2745289200 
04 AE 8 BO 000 OVW 
06 AE 04 00026 CLRL PRIVILEGE _MASR+6 
+3 0029 PUSHL 
6D 0000v CF E 00028 MOVAB HANDLER, (FP) 
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(28) 


2585 


2600 
2609 


2621 
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DISPATCH Print Symbiont - n dispatch routines 16-Sep- AX-11 Bliss-32 V 7k, 4 Page 59 
VO2-000 PRINT T_SYMBIONT - aitiet tose on/main at poin 14- =Sep- 198 95: 38: 89 PRTSMB.SRC DISPAT CH. b3351 . (28) 
7C 000 CLRQ = = (SP) : 2626 
0c Ki OF 09 PUSHAB PRIVILEGE_MASK : 
01 Dd 00 PUSHL #1 : 
000000006 Q 4 FB 000 CALLS #4, SYSSSETPRV : 
D 99 E MOVL RO, STA Tus : 
7 41 BLBS STATUS, : 
DD 00044 PUSHL STATUS : 
64 1 FB 00046 CALLS #1 UIBSSIGNAL : 
—E 7C 00049 1$ CLRO 2s = (§P) + 2631 
7E D4 00048 CLRL 3s = (SP : 
94 AF 9F 0004D PUSHAB ITMLST : 
7E 7 9090 CLRO 0 = ( SP : 
re D4 0005 CLRL -(SP) : 
000000006 0 9 FB 00054 CALLS #7, SYSSGETSY IW : 
5 0 pO 00058 MOVL RO, STA : 
0 3g E8 0005 BLBS STATUS, "8 : 
52 DD 00061 PUSHL STAT us : 
64 01 FB 00063 CALLS tas IGNA : 
65 00000064 8F C2 00066 2$: SUBL2 71600 PSMSGL *WAXBUF + 2637 
02 6C 91 0006D CMPB (AP), #2 : 2638 
11 1F 00070 BLSSU 3 : 
08 AC 0S 9007¢ TSTL B(AP) : 
0¢ 13 0007 BEQL $ : 
65 08 BC 10 00 €D 00077 CMP2V #0, #16, @BUFLIM, PSMSGL_MAXBUF + 2640 
04 1€ 0007D BGEQU 3$ : 
65 08 BC 3C 0007F MOVZWL @BUFLIM, PSMS$GL_MAXBUF > 2642 
6C 95 00083 3$: TSTB (AP) + 2647 
09 13 00085 BEQL 4$ F 
04 AC 05 00087 TSTL «= 4 CAP) : 
64 13 OO08A BEQL 6 4$ : 
6E 04 BC dO 0008C MOVL § @STREAMS, MAXSTREAMS + 2649 
03 6C 91 00090 4$ CMPB (AP), #3 + 2654 
0D 1F 00093 BLSSU : 
0c AC 05 00095 TSTL 12 (AP) : 
08 13 00098 BEQL ; 
000000006 00 0c BC 3C 0009A MOVZWL @USER_SIZE, PSMSGL_USER_CTX : 2656 
SE DD OOOA2 5$ PUSHL SP : 2665 
000000006 00 9F O00A4 PUSHAB PSMSRECEIVE_MESSAGE_AST : 
FF46 CF OF OOOAA PUSHAB P.AAP ; 
000000006 00 03 FB OOOAE CALLS #3, SMBSINITIALIZE : 
52 50 pO 00085 MOVL RO, STATUS ; 
05 52 €8 00088 BLBS STATUS, $3 : 
52 DD 000BB PUSHL STATU S : 
64 01 FB 000BD CALLS #1, LIBSSIGNAL ; 
FF34 CF 9F OOOCO 6$: PUSHAB P.AAQ : 2670 
000000006 00 01 FB 000C4 CALLS #1, SYSSPURGWS ; 
OC AE 9F 000CB 7$ PUSHAB ARG_DESC > 2680 
000000006 00 01 FB QO0cE CALLS #1, PSM$WAIT_FOR_NON_AST : 
3¢ 10 AE 00 0000 MOVL ARG_DESC+4, R2 > 2694 
5 62 D0 00009 MOVL J, SCB > 2696 
0c Be 10 Ad FA b900¢ CALLG  16(R2), a12(R2) > 2697 
Oe «CC 50 DO 000E1 MOVL 0, 476(S ; 
04 Ag D3 00E6 TSTL (R2) > 2699 
: 13 OO0E9 BEQL $ : 
a D4 00EB CLRL = = (SP) : 2702 
7E 04 Ae D O00ED MOVO 4(R2), =(SP) : 
000000006 00 03 FB OO0F1 CALLS #3, SYSS$DCLAST : 
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; Routine Size 
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| DISPATCH biont = main dispatch routines 14-56 -1984 02:10: AX=11 Bliss-32 V4.0-74 Pp 1 D1! 
VO 000 k ORS = store errers reported by user in 1e-8ep-19 4 95:39:98 PRTSMB.SRC DISPATCH 03351 age 38) vO 


SBTTL "STORE ERRORS = store errors reported by user in SCB' 
Functional Bescription: 
Store the vector of condition codes in the call 
in the SCB. 


mee 
mon 


' Formal Parameters: 
SMB 
<B(K 


Implicit Inputs: 
non 


CONTEXT : assumed to be SCB address 
P)> : begining of condition List 


Implicit Outputs: ; $ | 
Error conditions and associcated text are stored 


OWODODOnNyyAG 
Ooooouwowo 


Returned Value: 
SS$_NORMAL 


Side Effects: 
non 
GLOBAL ROUTINE PSMSSTORE_ERRORS ( 
SMB_CONTEXT ? REF SLONGWORD 


' 
. 
' 
. 
' 
. 
' 
° 
' 
! 
* 
' 
. 
' 
. 
! 
. 
1 
. 
' 
* 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
‘ 


BEGIN 


BUILTIN AP; 
MAP AP : REF VECTOR; 


LOCAL 

CONDITION, 

ERRORS : R 
INDEX : | 
scB : R 


EF VECTOR, 
NITIAL (0), 
EF $BBLOCK 


Locate the SCB and condition vecter area 


SCB = .SMB_CONTEXT(); 
ERRORS = SCBCPSM$ST_CONDITION_AREA); 


BEEBE EEE & EAN INIA NPNIPNINDYD 2 OS "0 OO 
MEW 0 ODN UWE WN 0 ODNO UNE WIN 0 ODNOA UENO ODNOAUE WN —“OOONOUFSWWN—O0 WI 


WA WA AAANI NUNN Se OPRUNLESS SSS 


MEWN —O ODN VUE WN —"O OONOUS WN -OOO~n 


= 


: If previous errors reported then ignore these 
if .ERRORSCO) NEQ 0 THEN RETURN SS$_NORMAL; 


: Expand the condition codes into a text message 
EXPAND_CONDITION_VECTOR (.SCB, .APCO] - 1, APC2], SCBCPSM$Q_CONDITION_TEXT]); 


WAw 
SSS SS SSS SS SSS SNS SS NS NSS NSN NN SNS 


: Mark errrors to print 
SERVICE_LIST_ (FILE_ERRORS) = 1; 
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mee 


INCR I FROM 2 TO .APO) 
DO 


) 
M$S_CONDITION_AREA / 4 = 1 


DPSS 
MEW OOONOUS WN -OOO~ 3 


)); 
NDITION; 


mn —-— +O oO 


If this is neither an RMS nor a system message then 


the low 16 bits of the next argument are an FAO count. 


3 


' 

i 

! Skip the count argument Lenguer'é. and the number of 
: ed by the count. 


IF .$BBLOCK CCONDITION,STS$V_FAC_NO]_NEQ RMS$_FACILITY 


additional longwords specif 


S 
E 
: } Store the errors passing over FAO arguments 
3 
3 
; AND .$BBLOCK CCONDITION,STSS$V_FAC_NOJ NEQ 0 


NNAAO 


WN —OOCONOUSWN—-O0Oma~n 


AND .I LSSU .APCOJ 
THEN 


i 
4 

4 

4 

4 

4 

4 

: I = .] + .¢(APC.1+1])<0,16,0> + 1; 
2 END; 

2 

2 

1 


ODOonNNNNANNN 


Any error initiates a task abort 
ABORT_TASK (.SCB); 

SS$_NORMAL 

END; | 


3 3 
3; 3 
3; 7 
3 7 
oo 1 
7 
3} 
3 
. 7 
3; 7 
3 1 
3 7 
; 1 
; 1 
3; 7 
3% 
. 3 
3; 7 
3 1 
3; 3 
3 7 
3 
3 7 
3 3 
; 1 
3 
3 3 
3; 
3 1 
8 1 
3 
3 7 
3 1 
3 7 
3 7 
3 3 
3 


003c 00000 -ENTRY PSMSSTORE_ERRORS, Save R2,R3,R4,R5 : 2730, 
55 D4 00002 CLRL INDEX > 2733 | 
52 04 BC DO 00004 MOVL §§ @SMB_ CONTEXT, SCB : 2747 
53 028E Ce i 00008 MOVAB 654(R2), ERRORS > 2748 | 
63 D5 0000D TSTL  (ERRORSS > 2753. 
59 12 0000F BNEQ 5$ : | 
0198 C2 9F 00011 PUSHAB 408(SCB) : 2758. 
08 AC 9F 00015 PUSHAB 8(AP) : | 
7E 6C 01 C3 90018 SUBL3. #1, (AP), -(SP) ; | 
§2 DD 0001C PUSHL  SCB : 
0000v CF 04 FB 00016 CALLS 4&4, EXPAND CONDITION_VECTOR : 
021A C2 04 88 0002 BISB2 #4. 538(S > 2763. 
50 1 DO 00028 MOVL #1, I : 2768 | 
2 11 00028 BRB 3$ ; | 
54 6C40 DO 0002D 1$: MOVL (AP)C1J, CONDITION > 2771 
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; Routine Size: 
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110 bytes, 
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Routine Base: 


K 12 
16-Sep-1984 AX-11 Bliss-32 V4.0-74 
in 1a-8ep 19 7 5: 38: v PRTSMB_SRC1DISPATCH.B32; 1 

D 13 00031 BEQL 

5 D6 000 3 INCL i DEX 

5 D1 000 CMPL —s«INDEX, #4 
29 1A 00038 BGTRU 4$ 
$3 D6 900 A INCL (ERRORS) 

4 90 0003¢ MOVL CONDITION, (ERRORS) LINDEX] 
10 ED 00040 2% CMPZV 6, #12, CONDITION, #1 

18 13 000465 BEQL 

10 ED 00047 CMPZ2V #16, #12, CONDITION, #0 
9 poo4c BEQL 46s 3$ 

50 D1 O004E CMPL i (AP) 
o¢ 1€ 00091 BGEG g 

04 AC4 oF 005 PUSHAL 4(AP)CIJ 
9 C 00057 MOVZWL @(SP)+, R1 
01 A14 3 0005A MOVAB. 1(R1)C{), I 
6C F3 OOOSF 3$ AOBLEQ (AP), I, 1$ 
52 DD 00063 4$ PUSHL  SCB 
01 FB 00065 CALLS #1, ABORT_TASK 
01 DO 0006A 5$ MOVL #1. RO 
04 00060 RET 
CODE + OAE9 
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ZSBTTL ‘ABORT TASK = aborts the current task’ 

' Functional Bescription: 

Causes the current task to be aborted by setting abort 
flags and cancelling unneeded input services. 


Formal Parameters: 
SCB : SCB address 


Implicit Inputs: 
non 

Implicit Outputs: 
none 

Returned Value: 
non 


' Side Effects: 
‘ The current task is cancelled. 


ROUTINE ABORT_TASK ( 
SCB : REF $BBLOCK 
: NOVALUE = 


BEGIN 


! If the main input routine has been requested but not 

: yet called with open, and if the file is actually opened 

! as evidenced by FAB_VALID being set, then close the file ; 
directly since the main path will not call with a CLOSE function 
I 


F .SERVICE_LIST_ (MAIN_INPUT) 
AND .SCBCPSM$V_FAB_VALIDBJ 


N 
SCLOSE (FAB=.SCBCPSM$A_FAB]); 


: Cancel any pending main input (file printing) and file setup. 
SERVICE_LIST_ (MAIN_INPUT) = 0; 
SERVICE_LIST_ (FILE_SETUP) = 0; 


! Turn on file trailer, job trailer, and/or job reset if the job controller 
! indicated they should occur on a task abort 


! 

iF .SEPARATE_FLAG_ (FILE_TRAILER_ABORT) THEN SERVICE_LIST_ (FILE_TRAILER) = 1; 
IF .SEPARATE-FLAG. (JOB_TRAILER ABORT) THEN SERVICE-LIST~ (JOB_TRAILER) = 1: 
IF .SEPARATE~FLAG. (JOB"RESET_ABORT) | THEN SERVICE“LIST~ (JOB7RESET) = 1: 


Clear any pending input modules 
CLEAR_STRING_ (SCBLPSM$Q_MODULE_LISTJ); 


! Set the master EOF flag to force wind-down while poping the input 


<= 
on 
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~-EXTRN SYSS$CLOSE 


' service routine stack 


o = Pe} 
Nem mm wry ww w ono 
coco oon wa o a oc [- of - e} 
um NN CCU NU ™ N ratio] 
fete te tea tea tea tea te te te te te te te te *e te te *®e rete te tate te te ee te 
ose 
~ a 
A oOo ' 
—- ww a - 
w” fr A ~ wi 
~ > Onom Mm - oS ws 
a =& A {OE ~ ate ges en 
i: 4 AN Ca —_— ~» ~o ww 
. —_—ec Aw eeMn se ae ~ Ax 
NNER ~AnMNn HR OCOw~ nN no ~ -~Zw~ 
aanm ~Oow> Wawa NN Ne oOo wR, O 
ene ewww ec een Ce EN 
qe ~Pr) ~ Nw “~~ ~ ~wvToO ~ a 
>mwoac wtOoO s+: Oo OM Ora oS Oss 
BOM YS TO — VUTMOOM TE A— OHOM~RMNUNOMOK- ws 
MOOAWNVREMNBRBRMBRBRRBR~TRBTOTRTOCT OT BB 
@ 
a @ 4IYMN@a ww w Nm #3 qmwr 
Q@Qude F4a3sat @©@ OMo@O@Medtyys s83ITIW 
"“O> POV JOD VMNVYF- WA Soc wo>s- OM UWE 
~wBOO IUMOD<fO OO MNO ZVOO YVEOVwI ate 
2 *FTOOOAYVOZTOOOO-OOVCOTEOZ+-OAvOe& 
ra 
' 
ee 
< 
oO o 
@ A Ar A A A as 
<= - NM wT an wn o 
SO WOOL TOL MN CWO TOW OWND LOR— Mr we 
SG OOOO NCU MI MIMI PPM ST TT TUNNUN OOO OR 
So OOCCoCoooooooooooooooooooooo 
lo Me oe loleolaloleoleleoleoleololeoleoleoleololeleolelololololololololo) 
Oo OOOCOCCOCOCOCCOCCOCOCOOCOOOOOOOOOOoO 
VY OWO- OOMSW- O-- ODNOOe BwOs-- COMM u Mor 
Ss OO wwow LOwowors-OdO-—-AOO0- OO-OuDO 
Oo 


LNMITIN— &NMODOOOTF ONE NL OTNOOWe ws 
BVLOVOD VOOOVW0S K— VK VOI“ NVOVOO 


wou oO Ov u vow ~~ ww 
Oro ww ew ve vwoo Js WwW 
~N N -— - oO - - 
Oo o oo o oo o Oo 
w 
o 
™N 
Oo 
NMONM OMOOMOM” M- OO oO om 
mWmnn—-xe Oamnwotwodt zo mo wn oc 
o o 
So Oe NN NG N oo 
- oo o oO Oo on 
o o 
o o 
o o 
o So 
Oo So 
Oo Oo 
@ vw 
o o Oo 


115 bytes, Routine Base: CODE + 0857 


; Routine Size: 


Oe a 


N 12 

DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 66 
¥O2~000 CARRIAGE. CONTROL - compute carriage control 122867 384 1 : 49:99 PATSMB SREIDESPATCN. 63551 i (31) 
; 1948 865 1 ZSBTTL ‘CARRIAGE_CONTROL = compute carriage control' 

; 1949 866 1 ! Functional Description: ; 

; 1950 867 1! Computes care tepe control for input records with the 
; 132) 508 : assistance of the EXEC’s carriage control routine. 
3 1988 870 1 ! Formal Parameters: 

3: 1954 871 1! SCB : SCB address 

; 1955 1h 1! ate 

3; 1956 875 1! Implicit Inputs: | . 

3; 1957 874 1! Carriage control type, first byte of input record, 
: 1958 2875 1! record header, form feed flags 

; 1959 $B5e 1! nae 

3; 1960 877 1. ! Implicit Outputs: : 

3; 1961 2878 1! PSM$L_CARCON established 

H 1oe8 2879 1! 

: 196 2880 1 ! Returned Value: 

3: 1964 2881 1! non 

; 1965 oeee oe 

3; 1966 2883 1 ! Side Effects: 

3 1967 2884 1! non 

: 1968 2885 1 !<- 

: 1969 2886 1 ROUTINE CARRIAGE_CONTROL ( 

; 1970 2887 1 $CB : REF $BBLOCK 

: 1971 2888 1 = 

3; 1972 2889 2 BEGIN 

3; 1973 2890 § : \ 
3 1974 2891 ' Define JSB Linkage to EXEC routine ; 
: 1975 2892 2! 

: 1976 2893 2 LINKAGE 

3 1977 2894 2 CARRIAGE_LINKAGE = JSB (REGISTER=3): 

; 1978 2895 2 PRESERVE (3) 

: 1979 2896 2 NOTUSED (2,4,5,6,7,8,9,10,11); 

: 1980 2897 2 

; 1981 2898 2 EXTERNAL ROUTINE 

; 1982 2899 2 EXESCARRIAGE: CARRIAGE_LINKAGE NOVALUE; 

3; 1983 2900 2 

3 1984 2901 2 ai ji 

3 +4 $35 § Case on the carriage control type for this input routine 

: 1987 2904 2 CASE .SCBLPSMSB_CC_TYPE] FROM 1 TO PSMSK_CC_MAX - 1 OF 

; 1988 2905 2 

3; 1989 2906 2 SET 

3: 1990 2907 

: 1991 908 COUTRANGE): 

3 1992 909 CODEERR_ ; 

3; 1993 910 2 

3 1994 2911 2 : , ty . , 

3 1995 4h) 2 ! Internal -- all carriage control is explicity imbedded in 

: 1996 2913 2 ! the data records 

3 1997 2914 § ‘ 

: 1998 2915 

3 1999 2916 2 CPSM$K_CC_INTERNALJ: 

: 2000 2917 2 SCBCPSM$L_CARCON] = 0; 

; 2001 sais 

; 2002 919 

3 2003 2920 : A co 

3 2004 2921 ! Implied -- generate leading <CR> and trailing <LF> for most 


oOo 


——__- —-_- -- ———__—_— — eee a 
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vOe~000 CAR TAGE CONTROL - conpute carriage control 14-Sep-1984 95:39:99 CPRTSMB.SRCIDISPATCH.B32;1 9°31) 

005 9 : records with special handling for the first record from the 

$8 2 service and for form feeds in the first byte of a record. 

008 : 

CPSM$K_CC_IMPLIED]: 
BEGIN 


Default carriage control 
SCBLPSM$L_CARCON] = PSMSK_LF_CR; 


: Clear leading carriage control for first record from service 
if .SCBCPSMSV_FIRST_RECORD] 
SCBCPSM$B_PREFIX_COUNT] = 0; 


Clear leading carriage control if last record was FF only 


IF TESTBITSC (SCBCPSMS$V_IMPLICIT_FORMFEED]) 


N 
SCBCPSM$B_PREFIX_COUNT] = 0; 


MeVVNNVNNNNNNNnnnnnn Fo 


2: 
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2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
294 
294 
294 
3 : Check for form feed in tirst byte of record 
$ ; = gCB 510k. (INPUT_RECORD) GTRU 0 
3 2 3 IF CHSRCHAR (.SCB_LADDR_ (INPUT_RECORD)) EQL PSMSK_CHAR_FF 
3 § 2 BEGIN 
z § 2 First byte is form feed -- clear leading carriage control 
be> 3 ; SCBCPSM$B_PREFIX_COUNT] = 0; 
043 296 ! One byte record -- clear trailing carriage control and set 
044 296 ! implicit form feed flag to clear leading carriage control 
2045 296 ! for next record 
2046 296 : 
2047 296 IF .SCB_SIZE_ (INPUT_RECORD) EQL 1 
2048 2965 THEN 
2049 2966 BEGIN 
2050 2967 srebpeeeetoe tit COUNT] = 0; 
2051 2968 SCBCPSMSV_IMPLICIT_FORMFEED) = 1; 
2052 2969 END; 
2053 2970 END; 
2054 2971 END; 
2055 2972 
2056 2973 
2057 2974 ' Fortran -- first byte of the record defines carriage control 
$oe6 2975 : 
059 2976 
2060 2977 CPSM$K_CC_FORTRAN): 
2061 2978 IF~.STB_SIZE_ (INPUT_RECORD) EQL 0 


en 
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AGE_CONT 14-Se 
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an 


ROL = compute carriage control 


THEN 
esi. CARCON] = PSMSK_LF_CR 


SEBLPSMSL CARCO 
PXESCARRIGE (S$ 
SP ah P 


HAR aS a ADDR. (I 
eo - SBYTEOFFS 
J 


= al Sag 
QL 0 


N 
SCBCPSM$B_P 


R] = PSMSK_CHAR_LF; 
RETURN PSMSK_FI ; 


3 

3 

3 

3 

3 

2 

2 

§ 

2 ! PRINT == print file format (PRN). Each record has a two byte 
2 ' header that define carriage control. DCL, for example, creates 
§ PRN files. 

2 

¢ va CC_PRINT: 

3 SCBCPSM$L_CARCON] = .SCBCPSM$L_RECORD_HEADER] “ 

3 EXESCARRIAGE (SCBCPSMSL EARCONI - $BYTEOFFSET CIR Rese CARCON)); 
3 IF .SCBCPSM$B_PREFIX_CHAR] E 

3 THEN 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 

1 


SCBCPSM$B_PREFIX_ CHAR] = PSMSK_CHAR_LF; 
IF SCBLPSMSB “POSTFIR_CHAR] EQL 0 ~ 


HEN 
@ SCBLPSM$B_POSTFIX_CHAR] = PSM$K_CHAR_LF 


TES; 
RETURN SS$_NORMAL; 
END; 


~-EXTRN EXESCARRIAGE 
001C 00000 CARRIAGE = ai 
00000000G 00 9E 00002 MOVAB 


4 

2 04 AC 00 00009 MOVL 
1 027C C2 8F 00000 CASEB 
F 0019 : 


ON 


03 
OOSA 00 


01067154 
000000006 00 


oO 
So 
oOo 
—_ 
w 
—s 
wn 
. 

= 
oO 
zz 
J 

NS BR BH OWNI OM: 


DD 000 
DD 000 
FB 000 
11 000 
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CHECKPOINT = add a checkpoint to the ch 14-Sep-1984 12:55: PRTSMB.SRCIJDISPATCH.B32;1 


RSBTTL ‘ENQUEUE_CHECKPOINT = add a checkpoint to the checkpoint queue’ 
Functional Description: | : 
This routine manages additions to the checkpoint queue. 


Pa 70 
9° (32) 


ma 


Formal Parameters: 
SCB : SCB address 
CKP_DESC: address of the checkpoint descriptor 


Implicit Inputs: 5 
Checkpoint queue header 


Implicit Outputs: 
none 

Returned Value: 
non 


Side Effects: 
The checkpoint is enqueued. 
The queue may be flushed. 
ROUTINE ENQUEUE_CHECKPOINT ( 
SCB : REF S$BBLOCK, 


Memory may be allocated. 


CKP_DESC : REF VECTOR 
) : NOVALUE = 

BEGIN 

LOCAL 
DSB : REF $BBLOCK 


If the queue has reached its maximum depth then flush it by 
discarding every other checkpoint 


] 
i 
' 
iF _;, SCBLPSMSB_CHECKPOINT_DEPTH] GTR PSM$K_CHECKPOINT_LIMIT 

BEGIN 
LOCAL FIRST_DSB : REF $BBLOCK, 
TOGGLE : INITIAL (0); 


! Scan the queue by removing each checkpoint. 
checkpoint is requeued. 


FIRST_DSB = .FLINK_ (SCBCPSM$Q_CHECKPOINT_QUEUE]); 


Every other 


BEGIN 
REMOVE_HEAD_ (DSB 
DSB = =DSB = $BYTEO 
IF . TOGGLE 

THEN 


SCBCPSM$Q_CHECKPOINT_QUEUE)); 
FFSET (DSB_Q_QLINKS); 


BEGIN 
PSMSDEALLOCATE_DSB (.DSB); 
DECREMENT (SCBCPSM$B CHECKPOINT DEPTH 


1); 
IF + SCBLPSMSB_CHECKPOTNT DEPTH CSS 0 THEN CODEERR_ ; 


Pn & B&B BE AINA AINA AIWIAIRIPUDIPIDPIPINPIDININPININDY 2 A SO SS SS 


ae 
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Print Symbiont = main dispatch routines 19-300" 138% 9g: 19:09 AX-11 St! hag eT 
ENQUEUVE_CHECKPOINT = add a checkpoint to the ch 14-Sep-1984 12:55: PRTSMB.SRCJDISPATCH.B32;1 
075 4 LSE 
076 4 INSERT_TAIL_ (DSBIDSB_Q_QLINKSJ, SCBCPSM$Q_CHECKPOINT_QUEUE)); 
077 4 INCREMENT_~( TOGGLE); 
078 4 END 
079 UNTIL 
39 a -FLINK, (SCBCPSM$Q_CHECKPOINT_QUEUVE]) EQL .FIRST_DSB; 
O88 
One Allocate a dynamic string block, copy and enqueue the checkpoint 
086 2 PSMSALLOCATE_DSB (DSB); 
8/ 2 COPY_DX_Dx_ TCKP_DESCLOI, DSBCDSB_Q_DESC)); 
hts INSERT_TAIC_ (DSBCDSB_Q_QLINKSJ, SCBCPSM$Q_CHECKPOINT_QUEUE)); 
090 
$093 2 Increment the checkpoint depth and check for coding error 
309 : INCREMENT. (SCBCPSM$B_CHECKPOINT_DEPTH]); 
309% g IF .SCBCPSMSB_CHECKPOINT_DEPTH] CSS 0 THEN CODEERR_ ; ! > 128 
096 2 SS$_NORMAL 
097 2 
3098 1 END; 


003C 00000 ENQUEUE_CHECKPOINT: 
WORD Save R2,R3,R4,R5 


55 000000006 00 9€ 00002 MOVAB LIBS$STOP, R5 
5€ 04 C2 00009 SUBL2 #4, SP 
50 04 AC dO 0000C OVL  SCB, RO 
14 02A2 CO 91 00010 CMPB  =«-« 6 74(RO), #20 
54 15 00015 BLEQ 4$ 
53 D4 00017 CLRL ‘TOGGLE 
54 017¢ CO DO 00019 MOVL.  380(RO), FIRST_DSB 
52 04 AC 0000017C &F C1 O001e DDL3 #380, SCB, R2 
6E 00 Be OF 00027 1$ REMQUE @0(R2), DSB 
23 53 £9 00028 LBC TOGGLE, 2$ 
6— OD O00¢E PUSHL DSB 
000000006 00 01 FB 00030 CALLS #1, PSMSDEALLOCATE_DSB 
50 04 AC dO 90057 MOVL R 
50 O2A2 CO 9E 00038 MOVAB 674(R0), RO 
60 97 00040 DECB = (RO) 
17 18 00042 BGEQ 6=_- 3$ 
01 DD 00044 PUSHL #1 
01061154 8F DD 00046 PUSHL  #17174868 
65 02 FB 0004C CALLS #2, LIBSSTOP 
OA 11 0004 BRB 3$ 
50 04 AC 00 00051 28: MOVL SCB, RO 
0180 00 00 BE OE 00055 INSQUE a@DSB, @384(RO) 
06 00058 3$: INCL TOGGLE 
52 04 ac 0000017¢ B&F C1 0005D ADDL3 #380, SCB, R2 
54 62 D1 00066 CMPL (R2), FIRST_DSB 
BC 12 00069 BNEQ 18 
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000000006 00 


7E 04 AE 
000000006 9g 


000000006 
0180 


vIMoOuUIo Oo 


9 
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0 
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0 
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C 


Be 93:58:37 — EbATSmacsneSoiseaten.039;1 


PSMSALLOCATE_DSB 


tk 
“DSB, =<(SP) 
re: STRECOPY _ Dx 


STATUS, 5$ 

TATUS 
LIBSSIGNAL 

$CB, RO 

aSB, 9384(RO) 

674(R0), RO 

(RO) 

6$ 


#1 
#17174868 
#2, LIBSSTOP 
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DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 
¥be-000 EXPAND_CONDITION_VECTOR = expand condition code 12286871382 95:39:99 PRTSMB. SRC DISPATCH. B39; 1 
: 2184 099 1 ZSBTTL ‘EXPAND_CONDITION_VECTOR = expand condition codes to text’ 

> 2185 100 1! Functional Description: | 4 ; 

3: 2186 3101 1! xpands a List of condition codes to concatenated 

3: 2187 3108 1! text messages. 

; 2188 3103 1! 

; 2189 31046 1 ! Formal Parameters: 

; 2190 3105 1! : SCB address 

3; 2191 3198 1! MSGCNT : number of Longwords in message vector 

; $198 $108 ; peeves : address of gessage vector : 

: : address of descriptor to receive text 

oe Be Et cyte bow 

3 ! Implicit Inputs: 

3; 2196 348 1! non 

3; 2197 aig 3 

: 2198 3113 1 ! Implicit Outputs: 

3; 2199 3114 1! none 

; 2200 3115 1! 

; 2201 3116 1 ! Returned Value: 

; 2202 3117 1! none 

: 2203 ib ao ae 

3 $soe 3119 1 ! Side Effects: 

; 2205 3120 1! non 

: 2206 3121 1 !<- 

; 2207 3122 1 GLOBAL ROUTINE EXPAND_CONDITION_VECTOR ( 

; 2208 3123 (1 SCB : REF S$BBLOCK, 

; 2209 3124 1 MSGCNT , 

: 2210 3125 1 MSGVEC : REF VECTOR, 

; 2211 3126 1 DESC : REF VECTOR ! Dynamic descriptor to receive message 
3; 2212 3127 1 : NOVALUE = 

: 2213 3128 2 BEGIN 

3; 2214 3129 2 

3; 2215 3130 2 BUILTIN AP; 

: 2216 3131 2 LOCAL TEMP : VECTOR (20); 

: 2217 3132 2 

$519 3132 $ :¢ t t ith in f foll db 

3 ! Create a vector with message count in front, followe messages 

: 3520 3135 5 i ' . . 

: 2221 3136 2 TEMPLO) = .MSGCNT; 

; $556 3136 § CHSCOPY (.MSGCNT * 4, .MSGVEC, 0, ZALLOCATION (TEMP) - 4, TEMPL1)); 

> 2224 3139 2 

3 $552 Sct § Call S$PUTMSG to Look up text 

3 2227 P 3142 3 SIGNAL_IF_ERROR_ (S$PUTMSG (MSGVEC=TEMP, ACTRTN=PUTMSG_ACTION, 

: 2228 314 ATTPRM=-DESC)); 

3: 2229 3144 2 

; 2250 3145 1 END; 

-EXTRN SYSSPUTMSG 
003C 00000 ENTRY EXPAND _CONDITION_VECTOR, Save R2,R3,R4,R5 
5E BS AE YE 00002 MOVAB <=-76(SPY, SP 
08 Ac bp 00006 PUSHL MSGCN 
50 08 AC 9¢ 8 00009 ASHL #2, MSGCNT, RO 
004C 8F 00 oc oO 2C OQOOOE MOVCS RO, @MSGVEC, #0, #76, TEMP+4 


Page 73 
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13 
Print Symbiont = main dispatch routines 18-Sep-1984 0 19:00 AX-11 Bliss-32 V a o35. 
EXPAND_CONDITION_VECTOR = expand condition code 14-Sep-1984 12:55: PRTSMB.SRC DISPAT CH.B32;1 
04 AE opig 
10 AC OD 4 PUSHL DESC 
7E fs 0018 CLRL -(SP) 
O000v CF F Base PUSHAB PUTMSG_ACTION 
OC AE 9F 00021 PUSHAB TEMP 
000000006 9g 4 Ff § 4 CALLS He SYSSPUTMSG 
D § B MOVL RO, STATUS 
E8 OOO2E BLBS STATUS, 1$ 
DD 00031 PUSHi satus 
000000006 00 01 FB 00033 CALLS » LIBSSIGNAL 
04 OOO3SA 1$: RET 


; Routine Size: 59 bytes, Routine Base: CODE + 0D50 


3145 


<o | 
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DISPATCH Print Symbiont = main dispatch routines 1% 6-S AX-11 Bliss-32 V4.0-74 Page 75 
Vbee 000 FIND CHECKPOINT == locate en appropriate checkp 14- ~3e0n}3 4 2 98: 49: 89 AATSMB’ SRE TDI SPATCU. 03951 ’ (34) 
5 ¢ 146 j MSBTTL "FIND _CHECKPOINT == Locate an appropriate checkpoint’ 

$ 147 1! Functional Description: 

$ 4 148 1! Searches the checkpoint queue for the closest checkpoint 
: 5 4 : that preceeds the target page. 

: ; 13 — Sustaeaty | SCB ADDRESS 

: 2239 138 2 

: 40 154 1 ! Implicit Inputs: 

: re. 13? : Checkpoint queue, start page 

: 224 157 1°! Implicit Outputs: 

: 2266 158 1! none 

> 2245 189 1! 

: $48 160 1 ! Returned Value: 

: 47 161 1! Address of checkpoint or zero 

; 2248 16¢ Sees 

3 2249 3165 1 ! Side Effects: 

; 2250 3164 1! non 

3; 2251 3165 1 !-- 

; $$26 3166 1 ROUTINE FIND_CHECKPOINT ( 

; 225 4162 1 S¢cB : REF $BBLOCK 

3 2254 168 1 = 

3; 2255 3169 § BEGIN 

3; 2256 3170 

3; 2257 3171 2 LOCAL 

: 2258 3172 2 CLOSEST : REF $BBLOCK INITIAL (0), ! Best checkpoint found 
: 2259 3173 2 DSB : REF $BBLOCK i dynamic string block 
3; 2260 3174 2 3 

: 2261 3175 2 

: 2262 3176 2 The. tell ; ; c ; 

3 $$e7 318 § Initialize the queue pointer to the first item in the queue 

3; 2265 3179 2 DSB = .FLINK_ (SCBCPSM$Q_CHECKPOINT_QUEUE)); 

3; 2266 3180 2 

3; 2267 3181 2 

; $508 3188 Search the queue until we return to the queue header 

3; 2270 3184 2 UNTIL .DSB EQL SCBCPSM$Q_CHECKPOINT_QUEUE] 

3: 2271 3185 ¢ DO 

; $5i¢ 3186 BEGIN 

; $37 $180 ; BIND CKP = .DESC_ADDR_ (DSBCDSB_Q_DESC]) : $BBLOCK; 

: 2275 3189 ! If this checkpoint preceeds the target page and is closer 
; $76 sian than any other then save it 

3; 2278 3138 3 if . CKPCSMBMSG$L_PAGE] LEQ .SCBCPSMS$L_START_PAGE] 

3 $$ie 3193 3 THEN 

F spe $19¢ ; Senge EQL 0 THEN CLOSEST = CKP 

° $58) 3196 . CKPCSMBMSG$i._PAGE] GTRU .CLOSESTCSMBMSGS$L_PAGE] 
3: 2283 3197 ; N 

3: 2284 198 CLOSEST = CKP; 

3 $see 199 3 

3; 2286 200 ' Advance to the next queue entry 

3; 2287 201 ' 

3; 2288 3202 DSB = .FLINK_ (DSBCDSB_Q_QLINKS)); 


int Symbiont = main dispatch routines 1 
ND CHECKPOINT == Locate an appropriate checkp 1 


END; 


K . 
eaSep-1984 19:59:07 EPaTsmac SREID1SPATCH.039; 1 Page ff 


Return the address of the checkpoint if a useable one was found 
iF .CLOSEST NEQ 0 
THEN 


' If current page roa than Larget page, 
or current page less than checkpoint page 


3 

4 

8 

9 

0 

1 

g IF .S$CB pena =p Need GTRU .SCBCPSMS$L_START PAGE] 
¢ OR .SCBCPSMSL_PAGE] LSSU .CLOSESTCSMBMSGSC_PAGE] 
6 

7 

8 

9 

0 

1 

2 


- CLOSEST 
E 


01 


000C 00000 FIND_CHECKPOINT: 
. WORD 


Save R2,R3 > 3166 

50 D4 00002 CLRL CLOSEST : 3169. 

52 04 AC DO 00004 MOVL  SCB, R2 : 3179. 

53 017C C2 DO 00008 MOVL  380(R2), DSB ; | 

5} 017C C2 9E 0000D 1$: MOVAB 380(R2). R1 ; 3184) 

51 53 D1 00012 CMPL DSB, R1 : | 

1F 13 00015 BEQL 6 4$ ; | 

51 0c A3 DO 00017 MOVL 12(DSB), R1 : 3187 

0224 (C2 08 Al D1 0001B CMPL = 8(R1), $48(R2) > 3192. 
OE 14 00021 BGTR 3$ : | 

50 05 00023 TSTL CLOSEST > 3194) 

07 13 00025 BEQL 6-2 ; 

08 a0 08 Al D1 00027 CMPL §(R1), 8(CLOSEST) : 3196) 
03 1B 0002C BLEQU 3$ ; 
50 51 DO OO02E 28 MOVL 1, CLOSEST : 3198. 
53 63 DO 00031 3$ MOVL (DSB), DSB 3 3202 | 
D7? 11 00034 BRB 1$ > 3184 | 

50 D3 00036 4$ TSTL CLOSEST : 3208. 

11 13 00038 BEQL 46s«S5$ : | 

0224 C2 O1EC C2 D1 OOO3A CMPL 492(R2), 548(R2) : 3213 
OA 1A 00041 BGTRU 6$ : | 
08 a0 O1EC C2 01 00043 CMPL 492(R2), 8(CLOSEST) > 3214 | 
02 1F 00049 BLSSU 6$ ; | 
50 04 0004B 5$: CLRL ~— RO : 3208 | 

04 0004D 6$: RET > 3222 


; Routine Size: 78 bytes, Routine Base: CODE + 0D8B 
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| basPay os Print byes tong = main dispatch routines 18-Sep-19 4 95:19:00 AX-11 Bliss-32 v5 20-235 Page 77 
v04-0 GET_BUFFER = Get an output buffer (10B) 14-Sep-1984 255: PRTSMB.SRCIDISPATCH.B32;1 (35) 
. 10 3 1 £SBTTL ‘GET BUFFER = Get an output buffer (10B)' 

3 2311 4 1! Functional Description: 

: 1 > ws Allocates and initializes an I0B (Input/Output buffer 
3 i § : } control Block) 

3 15 8 1! Formal Parameters: 

; 1g 9 1! SCB : SCB address 

; 231 » i oa 

: #15 1 1! Implicit Inputs: 

; 2319 3 1! none 

; 2320 ap Ed Fat 

. $3 1 ze 1 ! Implicit Outputs: 

3 ¢ . tf none 

3 $35 $38 4 

3 2324 3237 1 ! Returned Value: 

; $352 3238 1! SS$_NORMAL if successful 

: 2326 3239 1! 0 if no I0B's available 

3: 2327 3240 1! 

; 2328 3241 1 ! Side Effects: eae k 

; 2329 3242 1! Allocates and initializes the I0B queue the first 
3; 2330 32435 1! time this routine is called. 

: 2331 3244 1 !a= 

3; 2332 3245 1 ROUTINE GET_BUFFER ( 

3; 2333 3246 1 $cB : REF $BBLOCK 

3: 2334 3247 1 = 

3; 2335 3248 2 BEGIN 

3: 2336 3249 2 

3 2337 3250 2 LOCAL 

; 2338 3251 2 10B : REF $BBLOCK 

: 2339 3252 2 3 

: 2340 3253 2 

3 2341 3254 2 ! If their is already an IOB attached to the SCB then we are done 
: 2342 3255 2! 

3 2343 3256 2 IF .SCBCPSM$A_10B] NEQ 0 

3 2344 3257 2 THEN 

3 2345 3258 2 RETURN SS$_NORMAL; 

3: 2346 3259 2 

3 2347 3260 2 2 i , 

3; 2348 3261 2 ! If the queue has never been initialized then do it 

3 2349 3262 2! 

3 2350 3263 2 IF .FLINK_ (SCBCPSM$SQ_BUFFER_QUEUE]) EQL 0 

3 2351 3264 ; THEN 

3; 2352 3265 BEGIN 

3 $327 $509 ; INIT_QUEUE_HEADER_ (SCBCPSM$Q_BUFFER_QUEUE)); 

3 tH 3508 ; Allocate as many I0B's for this SCB as specified by NUMOUTBUF 
3: 2357 3270 3 DECR I FROM PSMS$K_NUMOUTBUF TO 1 

; 2358 3271 3 DO 

3: 2359 $556 4 BEGIN 

3; 2360 3273 4 PSMSALLOCATE_I0B (10B, PSMS$GL_MAXBUF); 

3 2361 3274 4 10BC10B_A_CONTEXT] = .SCB; 

; 36¢ 3275 4 INSERT_TATL_ (1OBC10B_Q_QLINKS], SCBCPSM$Q_BUFFER_QUEUE]); 
3: 236 3558 3 END; 

3 2364 ae END; 

3; 2365 3278 § 

3; 2366 3279 


q 


i — —_ —E 


<9 


mom oR Om RRR ERA ER PRIA IAI ARIAIAIAIAIANIANINIANINIAIAINIAINIANINIAINIAINIAINIANIANINIAINIAINIAININIAIN) in 


Be Be Oe Oe Oe Be Se Se Be Se Be Se Be Be Se SH Se Be Se Se Se Se Se Be oe Bete te Ge Ge Ge Ge Ge Ge ee Se Se Se Se Se Se Se Se Se ee Se Se Se Se ee Sete ee Se Se ae 


—___——- 


M13 
DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 210: AX-11 Bliss-32 V4.0-74 Page 78 DIS 
Mba 006 GET. BUFFER = Get an output buffer (10B) org e8- 1382 95:10:99 PATSMB SRE TDISPATCN. 03951 ° (35) v0 
3 ref 0 Get an 108, return if none available 
: 9 8¢ IF REMOVE_HEAD_ (10B, SCBIPSM$Q_BUFFER_QUEUE]) THEN RETURN 0; 
: 2371 84 
3 a 28s ! reivet the I10B address, clear the I0B flags, and attach the 
3 if soe } 108 to the SCB. 
; 9378 288 10B = .J0B = $BYTEOFFSET (10B_Q_QLINKS); 
3; 2576 3289 yadhe L_FLAGS] = 0; 
: 2377 3290 2 SCBLPSMSA-I0B] = .108; 
; 2578 $59; 
: 2379 36 
; th} $537 $ Initialize the buffer descriptor 
: 2382 3295 2 VECTOR CSCBCPSM$Q_OUTPUT_BUFFER], 0] = .DESC_SIZE_ (I0BC10B_Q_BUFFER]); 
: 3385 3296 2 VECTOR CSCBCPSMSQ-OUTPUT_BUFFER], 1] = .DESC-ADDR- (IOBLIOB_Q-BUFFERJ); 
3; 2385 3534 $ SS$_NORMAL 
3 2386 3299 : 
3; 2387 3300 END; 
0004 00000 GET_BUFFER: 
-WORD Save R2 3; 3245. 
SE 04 C2 00002 SUBL2 #4, SP : 
50 04 AC DO 00005 SCB, RO : 3256. 
01AC CO D5 00009 TSTL 428(RO) : 
64 12 0000D BNEQ 4$ : 
50 0174 CO 9E OO00F MOVAB 372(RO), RO : 3263. 
60 D5 00014 TSTL (RO) : 
2— 12 00016 BNEQ 2$ ; 
60 50 DO 00018 MOVL RO, (RO) ; 3266 | 
04 AO 50 D0 0001B MOVL RO. 4(RO) ; | 
2 03 dO OOOTF MOVL #3, I : 3270) 
000000006 00 9F 00022 1$: PUSHAB PSMSGL_MAXBUF : 3273. 
04 AE 9F 00028 PUSHAB 108 : | 
000000006 00 02 FB 00028 CALLS #2, PSMSALLOCATE_10B : 
51 6E DO 00032 MOVL I10B, R1 2 3274) 
14 Al 04 AC DO 00035 MOVL SCB, 20(R1) : 
50 04 AC DO OOO3A MOVL SCB, RO : 3275. 
0178 00 61 OE 00056 INSQUE (R15, @376(RO) : | 
DC 52 F5 0004 SOBGTR 1, 1$ : 3270) 
50 04 AC 00 00046 2$: MOVL SCB, RO 3: 3282 
6£ 0174 DO OF O004A REMQUE @372(RO), I0B ; 
03 1C O004F BVC 3$ : 
50 D4 00051 CLRL RO ; 
04 Baber RET : 
51 6E D0 00054 3$: MOVL 10B, R1 : 3289 | : 
2c OATS 90057 CLRL 44(R1) ; 
50 04 AC DO OOOSA MOVL SCB, RO ; 3290 
O1AC = C0 81 7E 00056 MOVAQ (R15+, 428(RO) ; 
50 0160 CO 3 0006 MOVAB 480(R6), RO! > 3295. 
51 14 CO 00068 ADDL2 #20, R1 3 
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MOVL 
MOVL 
RET 
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| DISPATCH nt Symbiont = main dispatch routines ibese -1984 210: AX-11 BLi 
Wbee 000 ER” ; or geet bas 95:48:09 


Pri ss-32 V4.0-74 Page 80 
HANDLER == main signal handler 14- PRTSMB’SRCID1 SPATEN, 0995 1 : (36) 
> 2389 Q1 1 X%SBTTL ‘HANDLER == main signal handler’ 
; 2390 8 1 ! Functional Description: 
3 23) $2 : } Catches signals, inhibits text expansion, and resignals 
; 239 05 1! Formal Parameters: 
3 oe $8 : STANDARD SIGNAL ARGUMENTS 
: 2396 3308 1°! Implicit Inputs: 
3; 2397 $298 1! none 
: 2598 310 1! 
3; 2399 $21) 1 ! Implicit Outputs: 
: $700 a6 1! none 
; 2401 331 . 2 
; 2402 3314 1 ! Returned Value: 
: 2403 S315 7! n 
: 2404 3316 1 i 
3 2405 3317 1! Side Effects: 
3 2406 3318 1! non 
; 2407 3319 1 !=- 
3; 2408 3320 1 ROUTINE HANDLER (SIGARGS: REF BLOCK [, BYTE]) = 
3; 2409 3321 1 
3; 2410 3322 2 BEGIN 
3: 2411 3323 2 : 
$ at $35¢ § Disable expansion of error condition to text 
; seie $359 § SIGARGS CCHF$L_SIG_NAME] = .SIGARGS CCHF$L_SIG_NAME] OR STS$M_INHIB_MSG; 
: 2416 3328 2 SS$_RESIGNAL 
3 2417 3329 2 
3; 2418 3330 1 END; 
0000 00000 HANDLER:.WORD Save nothing : 3320 
50 04 AC 00 00002 MOVL SIGARGS, RO ; 3326 
07 AO 10 88 00006 BISB2 #16, 7(RO) ; 
50 0918 8F 3C OOOODA MOVZWL #2328, RO : 3330. 
04 0000F RET ; 


Routine Size: 16 bytes, Routine Base: CODE + 0E50 
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Print Symbiont = main dispatch routines ibese -1984 02:10:0 AX-11 Bliss-32 V4.0-74 P 1 

PUTMSG_ ACTION - action routine for SPUTMSG call 1e-8ep-19 4 1 39:99 PATSMB SREIDI PATCH .0395 1 age 55) 
1 1 ZSBTTL ‘PUTMSG_ACTION = action routine for SPUTMSG call" 
¢ 1 ! Functional Description: 
1 ! Adds carraige control and appends the messages into 

¢ ¢ ! the SCB. 

338 1 | Formal Parameters: 

334 : } Standard $PUTMSG action routine interface 

339 1 | Implicit Inputs: 

340 1! none 

3302 | | Implicit Out 

! Implici ts: 

3306 1! r . none 

3344 1! 

3345 1 ! Returned Value: 

3346 1 :'! non 

3347 1! 

3348 | singly sttiee Th text i ded to th i d i 

! e message text is appended to the appropriate descript 

3350 1 | in the Sch. wa pet oor ee 
3352 1 ROUTINE PUTMSG_ACTION ( 
3353 1 MSG_DESC : REF $BBLOCK, 

3354 1 DYN_DESC 
3355 (1 }s 
$328 § BEGIN 
$326 § BIND FORMAT = $DESCRIPTOR ("!/!AS*, CHAR (PSM$K_CHAR_CR)); 
3360 2 LOCAL 
3361 2 WRK_DESC: VECTOR (2) 
336¢ 2 WRK “BUFF : VECTOR (512, BYTE] 
3363 2 ; 
3364 2 
3365 2 ! Setup a work descriptor 
3366 2 ! 
3367 2 WRK_DESC CO] = ZALLOCATION (WRK_BUFF); 
3368 2 WRK_DESC (1) = WRK_BUFF; 
3369 2 
3370 2 
$35) § Call FAO to add carriage control 
$376 ; $FAO (FORMAT, WRK_DESC, WRK_DESC, .MSG_DESC); 

375 

$359 § Append the resulting message to the specified descriptor 

3378 : SIGNAL_IF_ERROR_ (STRSAPPEND (.DYN_DESC, WRK_DESC)); 

3380 2 RETURN 0; 

3381 2 

3382 1 END; 

53 41 21 2F 21 OQOE60 P.AAS: .ASCII \!/!AS\ ; 
0D O0E65 ASCII <13> ; 


or 
in 
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| 
D 14 
“Woe-000" Print STP ION. = main dispatch routines 16-Sep-1 oR 9g: 19: 89 AX-11 Oh ietie v4.0 
V PUTMSG ACTION = action routine for SPUTMSG call 1a-8ep -1984 75 PRTSMB.SRC DISPATCH. “B45; 31 
| OE 66 .BLKB 2 
90000008 OF68 P.AAR: .LONG 6 
0000000" O0E6C -ADDRESS P.AAS 
FORMAT= P.AAR 
| -EXTRN SYSS$FAO 
0004 00000 PUTMSG_ACTION: 
| «WORD Saye R2 
SE s«FDFB® «CE. «9E 0000 HOVAB s340(SP SP 
FB AD 0200 8F 3C 0000 MOVZWL #512, WR 
FC OAD 6— 9€ 0000D MOVAB WRK_BUFF,~WRK_DESC+4 
04 AC DD 00011 PUSHL MSG_DESC 
FB =AD OF 00014 PUSHAB WRK-DESC 
FB AD 9F 00017 PUSHAB WRK_DESC 
dB AF 9F QOOTA PUSHAB FOR 
000000006 00 04 FB 00010 CALLS #4, SYSS$FAO 
F8 «AD OF 00024 PUSHAB WRK_DESC 
08 AC DD 00027 PUSHL DYN~DESC 
000000006 98 02 FB O002A CALLS #2, STRSAPPEND 
2 50 DO 00031 MOVL RO, STAT 
25 E8 00034 BLBS STATUS, 1$ 
5 DD 00037 PUSHL STATUS 
00000000G 00 01 FB 00039 CALLS #1, LIBSSIGNAL 
50 04 00040 1$ CLRL RO 
04 00042 RET 
; Routine Size: 67 bytes, Routine Base: CODE + 0E70 
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t Symbiont = main dispatch routines bese -1984 02:10: AX-11 Bliss-32 V 
ME_SERVICE = Resume a previously suspended 14 : Hm 1 32:69 S 


-Sep-19 


ZSBTTL "RESUME _SERVICE = Resume a previously suspended service’ 

! Functional Description: ; 

Resumes the input service at the top of the service 
stack and resets the SCB values that were in effect 
when the service was suspended. 


PRTSMB.SRCIDISP 


Formal Parameters: 
$¢B : SCB ADDRESS 


Implicit Inputs: ! 
Input service queue header 

Implicit Outputs: 
Context values that are preserved when a service is 
suspended are restored. 


Returned Value: 
non 


Sete ee ee ee ee ee 


Side Effects: : 
The service is popped from the input service stack. 
ROUTINE RESUME_SERVICE ( 
$cB : REF $BBLOCK 
: NOVALUE = 
BEGIN 


LOCAL 
DSB : REF $BBLOCK 


Decrement the depth and check for coding error 


DECREMENT. (SCBCPSM$B_INPUT DEPTH)): 
if . SCBCPSM$B_INPUT_DEPTH) CSS 0 


N 
CODEERR_ ; 


} Release any dynamic memory of current stream 

CLEAR_STRING_ (SCBCPSM$Q_INPUT_RECORD)); 

CLEAR_STRING_ (SCBCPSM$Q_USER_RECORD)); 

: Get the context block for the previous stream 

iF REMOVE_HEAD_ (DSB SCBCPSM$Q_INPUT QUEUE]) THEN CODEERR_ ; 
DSB = .DSB - $BYTEOFFSET (DSB_Q~QLINKS); 

Overlay the context area in the SCB 


CHSMOVE (PSM$S_SERVICE_CONTEXT, .DESC_ADDR_ (DSB[DSB_Q_DESC}), 
SCBLPSMS$R_SERVICE_CONTEXTJ5; 


PeSe Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se eee ee Se eeae 
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; Routine Size: 


RESUME SERVICE . teh pag — Re a ag i: 16-00 or 1oke § 39:09 ANT Ene’ SRE Di epAten ag B32;1 Page 58 
“# | Release the context block 

re PSMSDEALLOCATE_DSB (,DSB); 

444 1 END; 


01FC 00000 soreenttec sat! 


R3,R4,R5,R6,R7,R8 
9E R8 


{_Dx, R7 


Oo 
oO 
oO 
oO 
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3 01061154 
1 0263 
0 0260 
0 020E0000 

04 


1$: CMPB 
$6, (RO) 
2$: MOVL 
0260 

, 0260 
01 0273 


3$: CMPB 3425 


WN & & EE AAINIPONOPUPDY SS OO 
SMO ONWOMD@LS "OC OUnmoWorowo 
=z 
Oo 
< 
- 


0270 
60 020€0000 
04 


0270 
0270 
6 
56 0184 


5$: He 3430 


@ 
m 
r=) 
- 
RAD RAND DMNLS BOL AROWD DWE ROMO RRR—- HOUT YH 


6 01061154 
50 04 
B6 


#17174868 
CALLS #2, LIBSSTOP 
6$: MOVL - RO 
MOVCS #30, @12(DSB), 608(RO) 


cts #1, PSMSDEALLOCATE _DSB 


3437 
3442 
3444 


0260 C0 0c 
000000006 00 


o 
OW FP ODOT ON ON MN FON (“OOM ON MN FOO -VOWOOAOKrOO 
SOMO NF DWN FY NOM MN NS MW NONMOO MN PIN TF S$ WONMOOO 


CODOOOoyN yw, 
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v 
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“ 
= 
a 


oyrOonNvvl T9090 -07"0-T0 -900 0O- 0"0-- TWO -90 0 0—-o0"OO-—onuoVTv no 
FDO WODCFT OC 7D *WM0o- Lom SP - DWN fom, -DWOVTIeOnNmMmom 


159 bytes, Routine Base: CODE + OEB3 
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DISPATCH Print Symbiont = main dispatch routines 18-Sep-1984 9g: 19:90 AX-11 Bliss-32 v3 0-286 Page 85 
\¥ SAVE CHECKPOINT = Build a checkpoint item 14-Sep-1984 755: PRTSMB.SRCIJDISPATCH.B32;1 (39) 
ls 445 1 ZSBTTL "SAVE CHECKPOINT - Build a checkpoint item' 

i3 44 1 ! Functional wg “Maen 
13 8 447 1! Builds a checkpoint item from values in the SCB and from 
a i “+ } a READ_KEY operation to the current input service. 
F 4) 450 1 ! Formal Parameters: 

3: 254 451 1! s¢cB : SCB address 

: 254 128 1! 

3 254646 455 1°! Implicit Inputs: 

; 2545 454 1! none 

; 2546 455 1! 

; 254 456 1! Implicit Outputs: 
3 2568 457 1! none 

3; 2549 458 1! 

; 2550 459 1 ! Returned Value: 

: 2551 460 1! non 

3 226 “er Ft 

8 gee $006 1! Side Effects: 

3 25546 4635 1! none 

: 2555 3464 1 !<- 

; 2556 3465 1 ROUTINE SAVE_CHECKPOINT ( 

3 S2ee 3466 1 $cB : REF S$BBLOCK 

; 2558 3467 1 : NOVALUE = 

3; 2559 3468 2 BEGIN 

; 2560 3469 

3; 2561 3470 LOCAL 

; 56¢ 3471 CKP_DESC : VECTOR (23, 

; 256 347 2 KEY_DESC : VECTOR (2) PRESET ({0J=0, (1)=0) 

: Toe: 3473 2 3 

; 2565 3474 2 

: 2566 3475 2 BIND 

; 2567 3476 2 = .SCBCPSM$A_10B)] : S$BBLOCK ! Current output blcok 
; 2568 3477 2 CKP = 10BCIOB_T_CHECKPOINT_DATAS : SBBLOCK ! Checkpoint area in 108 
; 2569 3478 2 

; 2570 3479 ; 

3; 2571 3480 BEGIN 

3 $276 3481 3 ‘ ; 

; $er7 s086 3 } Locate the current input service 

; 2575 3484 3 BIND SERVICE = PSMSSRVC.SCBCPSM$B_SERVICE_INDEX],0,0,0,0] : SBBLOCK; 
3; 2576 3485 LOCAL FUNCTION_STATUS; 

3; 2577 3486 

: 2578 3487 : 

; t4 389 : Call the current input service to obtain the record key 

; ath 490 FUNCTION_STATUS = BLISS ( ; 4 

; 2582 3491 . SERVICECSRV_A_SERVICE), ' current input service 

; 2583 3036 ScB ' «= SCB address by reference 
> 2584 349 SCBCPSM$R_USER_CONTEXT_AREA], i = user context area 

: 2585 494 UPLIT (PSASK_GET_KEY), ! = GET_KEY function 

: 2586 495 KEY_DESC, ' = output key desc 

3; 2587 496 0); ! = <not used> 

; 2588 497 

3; 2589 498 ' Case on the status 

: 2590 499 ‘ 

3; 2591 500 SELECTONEU .FUNCTION_STATUS OF 

; 2592 501 SET 
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Symbiont = main dispatch routines 16-Sep “13 4 AxX-11 BLi 0- a 
ae attep ota - Build a checkpoint item 14- ep ¢ 98 52: 89 PRTSMB. bieqoi Spat o-3a5. 1 age 56° 


Asynchronous read_key operations not allowed 


CPSM$_PENDING]: 
CODEERR 


If not supported, then return that as our status 


CPSM$_FUNNOTSUP): 
RETURN PSM$_FUNNOTSUP; 


If errors then store them and return the error 


COTHERWISE): 
my -FUNCTION_STATUS 


BEGIN 
PSMSSTORE ERRORS (.SCB, .FUNCTION_STATUS); 
ae TURN -FONCTION STATUS; 


TES; 
END; 


We have a key == check the size and copy it into 
if .KEY -DESCCO) GTRU_SMBMSG$S_USER_KEY THEN CODEERR_ ; 
CHSCOPY~(.KEY DESCCOJ, .KEY_DESCL1 
SMBMSGS$S _OSER_KEY, CKPLSMBMSGSQ. “USER. KEY]); 
Build the rest of the checkpoint 
CKPC SMBMSG$B_CHECKPOINT LEVEL] = SMBMSGS$K Frage Tune LEVEL 


CKPCSMBMSG$W_OFFSET] = 7SCB B SIZE (USER RECORD -5CB_SI ie. (INPUT_RECORD) ; 
CKPCSMBMSGSL_ =CARCONI = , SCBEPSHSC C ON]; 

CKPCSMBMSGS$L_PAGE) = .SCBLPS 

CKPCSMBMSGS$L_ “RECORD “NOMBERD = +t SB EPSASL RECORD_NUMBER); 


Mark this I0B as having a checkpoint assoicated with it. 
[OBC 10B_V_CHECKPOINT_PENDING) = 1; 


! Build a descriptor of the checkpoint 
CKP_ DESCCOJ PRORSESS CHECKPOINT DATA; 


3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
3 
; 
2 
2 
é 
2 
é 
2 
2 
2 
2 
r4 
é 
CKP~DESC(1) 


! Place it in the checkpoint queue 


7 Fol he Print Symbiont = main dispatch routines 1 
v04-000 SAVE CHECKPOINT = Build a checkpoint item 1 
: $63 325 ENQUEUE CHECKPOINT (.SCB, CKP_DESCCO2) 
; O26 561 : bs 
; 265 266 
; 2654 56 SS$_NORMAL 
; 2655 564 
; 2656 3565 1 END; 
OOF S2 
00000006 00F54 
03FC 00000 
59 F7 AF YE 00002 
58 000000006 00 9E 00006 
5E 0c C2 0000D 
7E D4 00010 
04 AE 04 00012 
50 04 AC DO 00015 
57 O1AC §=CO dO 00019 
56 30 A? YE OOOIE 
51 027D CO 9A 00022 
51 10 ¢4 00027 
0000000060041 9F O002A 
51 9E DO 00031 
7E D4 00034 
04 AE 99F 00036 
59 DD 00039 
02D0 CO 9F 00038 
04 AC 99F 0003F 
61 05 FB 00042 
52 50 DO 00045 
00000000G_ 8F 52 D1 00048 
OD 12 0004F 
01 DD 00051 
01061154 8F DD 00053 
68 02 FB 00059 
17 11 0005C 
00000000G_ 8F 52 Dl 443 
5F 3 Bebe 
08 25 E8 00067 
52 DD QO06A 
04 AC DD 0006C 
FBID «CF 02 FB 44 
04 00074 
08 6— D1 00075 
0B 18 ty 
01 DD QOO7A 
01061154 8F DD 0007C 
68 02 FB 4 
08 00 04 BE 6— 2C 0008 
10 A6 0088 
01 A6 01 90 0008) 


c-- 
| 


-BLKB 
P.AAT: .LONG 


SAVE_CHECKPOINT: 
. WORD 


1$: CMPL 


2$: CMPL 


3$: move 


+00 AX-11 Blis att 


en as 
PRTSMB.SRCJDISPATCH.B32;1 


2 
6 


Save R2,R3,R4,R5,R6,R7,RB,RO 
P.AAT 

LIBS$STOP, R8& 

#12, SP 


an 
po) + 

= 
N 


+DwDoO~omwmm 
u 


_<e—ws wr OUNM 
oo a? . 
zw 
—-—- Dow 
- 


D 
D 
R 
7 
R 
Ss 
) 
) 
D 


) 
NCTION. STATUS 
ON_STATUS, #PSM$_PENDING 


BH MD BONDA 1 VPVBKOLOSYARK 


#17174868 
#2, LIBSSTOP 


cet en Sra. #PSM$_FUNNOTSUP 


FUNCTION_STATUS, 2$ 
FUNCTION-STATUS 


SCB 
#2, PSMSSTORE_ERRORS 

KEY_DESC, #8 

3$ 

#17174868 

#2, LIBSSTOP 

KEY_DESC, @KEY_DESC+4, #0, #8, 16(R6) 
#1, 1(R6) 
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DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 88 FOF 
Voee SAVE_CHECKPOINT = Build a checkpoint item 1a-Sep-19 4 95:10:90 PAT SMO’ SRE DISPATCH 03951 ° (38 vo. 
5 06 AC D 0091 MOVL_ S$CB, RO : 3541 
02 Ab 0270 ¢ 360 CO AS 00095 SUBW3 608(RO), 624(RO), 2(R6) : 
04 Aé CO DO 0009E MOVL  632(RO). 4(R6) + 354 
| 8 Ab TEC CO DO O00AG MOVL  492(RO). 8(R6) : 354 
ie 26c iC p OOAA MOVL  620(RO); 12(R6) + 3544 
| C OA 01 0080 BISB2 #1, 44(R7) + 3549 
8 AE 18 DO 000B4 MOVL #24, CKP_DESC + 3554 
OC AE 56 DO 00088 VL —s R6, -CKP_BESC+4 : 3555 
08 ar 9F OOOBC PUSHAB CKP_DEST : 3560 
50 DD O00BF PUSHL RO ; 
FC7D so F 02 FB 000C1 CALLS #2, ENQUEUE_CHECKPOINT : 
04 00066 4$: RET + 3565 


; Routine Size: 199 bytes, Routine Base: CODE + OF58 


K 14 
DISPATCH Print Symbiont = main dispatch routines 16-Sep-1984 02:10: AX-11 Bliss-32 V4.0-74 Page 89 
vOe- 000 SCHEDULE. SERVICE => deternine the next input se 1228671382 1 19:89 PRTSMB.SRC DISPATCH 03351 7 (40) 
; 2658 266 1 ZSBTTL "SCHEDULE_SERVICE == determine the next input service to process’ : 
; 2659 567 1 ! Functional peers ee tens 3 
; 2660 568 1! Looks for an input service to process. The oc iaery list : 
; 2661 569 1! of services is established by a bit vector. Additional : 
; 266 570 1! sources of input are page headers, page setup, included modules, : 
; 266 571 1! and previously suspended input services. : 
; 2664 278 1! 3 
; 2665 575 1 ! Formal Parameters: : 
; 2666 s25e 1! SCB : SCB address : 
3; 2667 rE 7 3 
; 2668 576 1! Implicit Inputs: ; 
; 2669 ik none 3 
; 2670 576 1! 3 
; 2671 579 1! Implicit Outputs: 3 
: 267 3580 1! none 3 
; 267 3581 1! 3 
3; 2674 3582 1 ! Returned Value: 3 
: 2675 3583 1! SS$_NORMAL - Service located ; 
; 2676 3584 1! PSM$_EOF - No input services remain 3 
: 2677 aes Yt : 
; 2678 3586 1! Side Effects: L Z : ‘ 
: 2679 3587 1! An input service may be dequeued from the input stack, : 
; 2680 3588 1! or removed from the outstanding service List. : 
; 2681 3589 1 !<- 
; 2682 3590 1 
; 26835 3591 1 ROUTINE SCHEDULE_SERVICE ( 
3; 2684 $208 1 $cB : REF S$SBBLOCK 
3; 2685 3593 1 2 
3; 2686 3594 2 BEGIN 
3; 2687 3595 2 
; 2688 3596 2 BIND 
3; 2689 3597 2 LIST = SCBCPSM$L_SERVICE_LIST] : BITVECTOR 
: 2690 3598 2 : 
3: 2691 3599 2 
3; 2692 3600 2 LOCAL ; E . 
; 2693 3601 2 PIDX : INITIAL (0) ! Index into service List 
: 2694 3602 2 ; 
3; 2695 3603 2 : ; 
3; 2696 3604 2 ! Reset values for new input service 
: 2697 605 ! 
: 2698 3606 SCBCPSMSL_RECORD_NUMBER] = 0; 
3; 2699 3607 SCBCPSM$V_READ_OFFSET) = 0; 
: 2700 3608 SCBEPSMSV"F IRST RECORD] = 1; 
> 2701 609 2 SCBLPSMSB~SERVITE_INDEX) = 0; 
3; 2702 610 
3; 27035 3611 2 , 
3: 2704 3612 § ! If there are any pending modules then select the LIBRARY_INPUT service 
5 $702 $012 to process them. 
3; 2707 3615 $ IF STRIP_COMMA_DELIMITED_ITEM (SCBCPSM$Q_MODULE_LISTJ, SCBCPSM$Q_MODULE_NAME ]) 
: 2708 616 THEN 
3; 2709 617 BEGIN 
: 2710 618 SCBCPSM$B_SERVICE_INDEX] = PSM$K_LIBRARY_INPUT; 
: 14h 619 RETURN SS$_NORMAL; 
; ar $59 END; 
: $3 621 
: 27146 622 


i 
DISPATCH Print Syreient = main dispatch routines 1b-Se 1986 03: 19: 09 AX-11 Bliss-32 v4 0-743 Page 90 FOF 
-0 SCHEDULE SERVICE == determine the next input se 14- a at OR4 j :0 PRTSMB.SRCJDISPATCH.B32;1 (40) Vv0é 
; sft? $ ; ! If page setup has been requested then schedule it : 
s 2ri¢ 625 IF iat (LISTCPSM$K_PAGE_SETUP]) . 
ane Bi ge 7 
$ 5730 628 "BEGIN ge INDEX] = PSMS$K_PAGE_SETUP; 3 
3 ts) 629 RETURN SSS_N $ 
; e7 ¢ 630 § END; 3 
3 sis 631 3 
3: 2724 O36 2 : : ; ' 3 
3 $f H th } Similarily, if page header has been requested then schedule it : 
: $f 7 ret IF TESTBITSC (LISTCPSM$K_PAGE_HEADERI) : 
3; 2728 636 THEN 3 
3; 2729 3637 BEG : 
3; 2750 3638 3 SET smse SE OMAALT INDEX] = PSM$K_PAGE_HEADER; 3 
: 273) ee77 3 RETURN SS$_NORMAL 3 
3 $ie6 640 2 END; ; 
s ets 3641 2 : 
3 2734 3642 2 - : . : 
; 2735 3643 2! If there is a suspended input service then resume it : 
: 2736 3644 2! 3 
3; 2737 3645 2 IF .SCBCPSMS$B_INPUT_DEPTH] GTRU 0 : 
3; 2738 3646 2 THEN : 
3; 2739 3647 3 BEGIN F 
3; 2740 3648 3 RESUME_SERVICE (.SCB); 3 
3 2741 3649 3 RETURN SS$ _NORMAL ; F 
g sree 3650 2 END; 3 
3: 274 3651 2 5 
3 2744 3652 2 . ; : 
3: 2745 3653 2 ! This is a brand new input service -- reset values 3 
3: 2746 3654 2 | q 
3 2747 3655 2 SCBCPSMSL PAGE] = ; 
3; 2748 3656 2 SCBLPSMSL_PRINT LAés) = 0; ; 
3 2749 3657 2 SCBCPSM$L_L_MARGIN] = 0; é 
; 2750 3658 2 SCBCPSMSL_T_MARGIN] = 0; | 3 
: 2751 3659 2 | 3 
3; 2752 3660 2 ; ' - ; * 3 
; ey, $00! § Scan the service list for a pending input service : 
3; 2755 3008 2 UNTIL FFS (PIDX, UPLIT (PSMS$K_MAX), LIST, PIDX) ! False until List empty : 
3; 2756 3664 ¢ DO 3 
: 2757 3665 ; 
; 2758 $006 ; BET SMse SERVICE _ INDEX] = .PIDX; ; 
: 2759 667 LISTC.PIDR) = ; 
3; 2760 3668 3 YF .PSMSSRVL. PIDX, SRV_/ SERVICE] NEQ 0 é 
3; 2761 3669 3 HEN 3 
3 2762 3670 3 RETURN SS$_NORMAL; ; 
3; 2763 3671 2 D; 3 
3: 2764 3078 $ : 
: 2765 367 ; ; 
3: 2766 3674 2 ! No service found, return EOF 3 
Z $fer 3675 § ! 3 
: 2768 3676 2 PSMS$_EOF : 
: $395 3677 2 3 
: 2770 3678 1 END; : 
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; Routine Size: 


= 


N 14 

‘D SPATCH Print SOR STR = main es eperee routines 16-Sep-1984 95:19:00 AX-11 Bliss-32 V 0-735. 
v04-000 SEARCH_FOR_STRING = Search for a string in a bu 14-Sep-1984 12:55: PRTSMB.SRC DISPAT H.B32;1 
: 277 3073 1 ZSBTTL "SEARCH_FOR_STRING = Search for a string in a buffer’ 

; 277 680 1 ! Functional Description: 

: sie Hat 1} This. routine looks for a search string in the current 
3 2775 one 1! input record. It maintains context across calls so that 
3: 2776 3685 1! strings that cross record boundaries can be located. 

; e777 3684 1! 

3; 2778 3685 1! Formal Parameters: 

3; 2779 3686 ] : $cB : SCB address 

; 2780 3687 ! KEY : descriptor of search key 

; 2781 3688 1! TARGET : descriptor of input record 

>: 2782 3689 1! 

: sie? 3690 1! Implicit Inputs: 

3 2784 3691 1! SCBCPSMSQ_ SEARCH_CONTEXT) - context from last call 
; 2785 3692 1! ape 

3; 2786 36935 1°! Implicit Outputs: 

; 2787 3694 1! none 

; 2788 3695 1! 

; 2789 3696 1 ! Returned Value: / 

; 2790 3697 1! SS$_NORMAL - the KEY was found in the TARGET 

; 2791 wae - KEY was not found 

: 2792 3699 1 ! Side Effects: 

: 2793 3700 1! 

3 2794 3701 1 !-- 

3; 2795 3702 1 GLOBAL ROUTINE SEARCH FOR_STRING ( 

3; 2796 3703 1 SCB REF $B8BCOCK, 

3; 2797 3704 1 KEY : REF $BBLOCK, 

3; 2798 3705 1 TARGET : REF $BBLOCK 

3 2799 3706 1 = 

; 2800 3707 2 BEGIN 

: 2801 3708 2 

: 2802 3709 2 LOCAL PTR; 

; 2803 3710 2 

; soos i) 5 Append the input record to the context from the last call 

3; 2806 3713 2 STRSAPPEND (SCBCPSM$Q_SEARCH_CONTEXT], .TARGET); 

3; 2807 3714 2 

: 2808 3715 2 : 

: A tt4 3518 § ; Compress white space (blanks and tabs) to a single space and upcase 
; oBle $18 § BASSEDIT (SCBCPSM$Q_SEARCH_CONTEXT], SCBCPSM$Q_SEARCH_CONTEXT], EDIT_MASK); 
: 2813 3720 2 , 

> 2814 3721 2 ! Look for the key as a substring of the target 

; 2815 3/56 2 | 

3; 2816 3723 2 PTR = CHSFIND_SUB ( : 

3 2817 3724 2 .SCB_SIZE_ (SEARCH_CONTEXT), ! Target appended to remainder 
3; 2818 3725 2 .SCB-ADDR- (SEARCH_CONTEXT), 

3 2819 3726 2 -DESC_SIZE_ (.KEY); ' Search key 

; 2820 3727 2 -DESC_ADDR_ (.KEY) 

3; 2821 3728 2 3 

3; 2822 3729 2 : 

3 2823 3730 2 ! Extract the last few characters of the input record as the context 

3: 2824 3731 2! for the next call . 

3; 2825 HAY 2 | 

3 2826 3733 2 STRSRIGHT ( 

3; 2827 3734 2 SCBCPSM$Q_SEARCH_CONTEXT 1}. 

: 2828 3735 2 SCBLPSM$Q— ~SEARCH_ CONTEXT 


—— 
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; Routine Size: 98 bytes, Routine Base: CODE + 1085 


| DISPATCH Print Symbiont = main dispatch routines Reta -1984 :10: AX-11 Bliss-32 V4.0-74 Page 93 
brett: SEARCH. FOR. STRING - Search for a string in a bu 12-308-} 80 95:10:09 PRTSMB.SRC pi sPatin.bsos1 296 at) 
: $ ; ? $ TREF (.SCB_SIZE_ (SEARCH_CONTEXT) = .DESC_SIZE_ (.KEY) + 1) 
3; 283) 738 
; 28 ¢ 739 
: : 8 Return 0 if not found, SS$_normal if located 
'3 2835 74 IF CHSFAIL (.PTR) 
3 836 74 THEN 
3; 2837 744 0 
3 2838 745 ELSE 
> 2839 746 SS$_NORMAL 
; 2840 74 
> 2841 746 1 END; 
007c¢ 00000 .ENTRY SEARCH_FOR_STRING, Save R2,R3,R4,R5,R6 : 3702 
SE 04 C2 00002 SUBL2 #4, SP : 
OC AC DP 00005 PUSHL TARGET : 3713 
50 046 AC dO 00008 MOVL SCB, RO : 
55 0210 co SE 0000C MOVAB 528(R0), RS ; 
55 DD 00011 PUSHL 5 : 
000000006 00 02 FB 00013 CALLS #2, STRSAPPEND : 
30 DD OOO1A PUSHL #48 : 3718 
55 DD O001C PUSHL RS : 
55 DD OOO1E PUSHL RS : 
000000006 00 03 FB 00020 CALLS #3, BASSEDIT ; 
54 08 ac D0 00027 MOVL KEY, R& : 3726 
56 64 3C 00028 MOVZ2WL (R45, R6 : 
06 85 65 06 84 56 39 000cE MATCHC R6, a4(R4), (R5), a4(R5) : 3727 
03 13 0003 BEQL ~=sédAS: : 
53 56 DO 00037 MOVL R6, R3 3 
53 56 C2 0003A 18: SUBL2 R6 ; 
50 65 3¢ 00030 mMOv2wL  (R5), RO : 3736 
51 64 3C 00040 MOVZ2WL (R4), R1 : 
50 51 C2 00043 UBL R1, RO ; 
6E 01 AO 9E 00046 MOVAB 1(RO), (SP) : 
4020 8F BB OO04A PUSHR #*M<R5,SP> > 3735 
55 DD 0004E PUSHL RS ; 
000000006 00 03 FB 0005 CALLS #3, STRSRIGHT : 
53 p5 0005 TSTL PTR : 3742 
92 12 00059 BNEQ 2$ ; 
d4 00058 CLRL RO 3 
04 00050 RET : 
| 50 01 DO 000S5E 2s: MOVL #1, RO ; 
04 00061 RET : 3748 
| 
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oye mbiont = main dispatch routines )o-300"13 4 02: 19: 99 AX-11 Bliss-32 v4.0 
»* :5 PRTSMB.SRCIDISPATCH 


MMA_DELIMITED_ITEM <= remove item from 14-Sep-1984 1 
ZSBTTL “STRIP oy gbGL IAI TED. ITEM == remove item from comma separate List’ 
Functional Bescript 
This rout tae removes one item from the front of a comma 
separated List. 


Formal Parameters: 
INPUT : descriptor of input List 
QUTPUT : removed item 


Implicit Inputs: 
none 


Implicit Outputs: 
The INPUT List is rewritten with the item removed 


Returned wapeer 


Side Effects: 


ee er ee ee ee ee ee ee ee 


ROUTINE STRIP. COMMA DELIMITED_ITEM ( 
INP REF $BBLOCK 
OUTPUT : REF SBBLOCK’ 

BEGIN 

LOCAL PTR; 

If nothing to do then return 

if .DESC_SIZE_ (. INPUT) EQL 0 THEN RETURN 0; 


PTR = CHSFIND_CH (.DESC_SIZE_ (. INPUT), .DESC_ADDR_ (. INPUT), %C ',"); 


! If no comma found the the entire input string is the resultant item 
and the input descriptor can be released 
if CuOr As, (,PTR) 


DX_ (INPUT, .OUTPUT); 
arte? _Bx (INPUT): 


" Comma found -- move the item from input List to output List 
BEGIN 
PTR = .PTR = .DESC_ADDR (. jueyt); 


STRSLEFT (,QUTPUT,~. INPOT, : 
PTR = .PIR + 2: 
STRSRIGHT (, INPUT, .INPUT, PTR); 


_ 
we 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
; 
2 
r 4 
; 
§ 
; : Locate the first comma or erd of string 
2 
2 
2 
4 


to 


pra 4 


: 2901 
\3 90¢ 
§ $362 

> 2905 

: 2906 


ru a er 


; Routine Size: 


@COmDmmwaqa “7 


04 


: Return success 


$s$_ 


B2 


106 bytes, 


NORMAL 


900000006 


000000006 
000000006 


000000006 


000000006 


Routine Base: 


00 
6€ 


00 
50 


atch routines 
-- remove item from 


D 15 
16-Se 
14-Se 


=19 
9-19 


Bc 93:58:09 — LpatsmersmeSoiSeatew.039;1 


Q000C 00000 STRIP_COMMA_DELIMITED_ITEM: 
wORD §$ i 


04 C2 0000 

04 AC 00 0000 
6¢ B85 00009 
Q$ 12 00008 
50 04 00000 
QO00F 
2C 3a 00010 
Q2 12 00015 
51 D4 00017 
51 bO 00019 
8 12 QOO1C 

2 00d 0001 

08 AC 0D 000 

02 FB 000 
29 DO O002A 
53 €8 00020 
53 DD 00030 
01 FB BOO ss 

52 dd 0003 
01 FB 4 $4 

22 11 49 
04 A2 C2 00044 
4004 8F B6B Renee 
08 AC 0D Y004C 
03 Fe 0004F 
02 CO 00056 
4004 8F BB 00059 
38 DD 0005D 
0 4 QO05F 

01 »D B38 

04 0006 

CODE + 1117 


2$: 


3$: 


SUBL2 


ave ° 

4, SF 

INPUT, R2 

(R2) 

1$ 

RO 

#44, (R2), @4(R2) 
2$ 

R1 

R1, PTR 

4$ 

R2 

OUTPUT 

#2, STRSCOPY_DX 
RO, STATUS 
STATUS, 3$ 
STATUS 

#1, LIBSSIGNAL 
#1, STRSFREE1_DXx 
5$ 


4(R2), PTR 
#°M<R2, SP> 


ss ha + 

#3, STRSLEFT 
#2, PIR 

-? pa cca 


#3. STRSRIGHT 
#1, RO 
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° (42) 


3770 
3780 


3785 


3791 
3794 


3795 
3801 
801 
802 


3803 
3804 


3812 


FO 


vO: 


15 
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SUSPEND_SERVICE == suspend the current input se 14-Sep-1984 1 :5 PRTSMB.SRCIDISPATCH.B32;1 (43) 
'3 290 Si? 1 ZSBTTL *SUSPEND_SERVICE == suspend the current input service’ 
i; 290 14 1°! Functional Description: 
'3 2910 815 1 Suspends the current input service by placing its 

: 3i3 313 ! context on an input service stack 

: 318 818 1 | Formal Parameters: 

: aig 533 : } $cB : SCB address 

: 916 631 Implicit Inputs: 

PY none 

; 2918 8 § 7 3 

3 $335 $s : : } Implicit statoeaa 

; none 

; $956 3826 61! 

g $358 $556 } Returned Value: 

; ! non 

3 2924 HTH 1! 

> 2925 3830 1 ! Side Effects: 

: $359 $633 1 The current service is placed on the stack 

: 2928 3835 1 GLOBAL ROUTINE SUSPEND SERVICE ( 

: 2929 3834 «1 $¢cB : REF SBBLOCK 

: $335 OU teen? on 

> 2932 3839 2 

: 2933 3838 2 LOCAL 

: Sate $75 § DSB : REF $BBLOCK 

> 2936 3841 2 ; 

3; 2937 se06 2 

: ats see7 § Increment tne stack depth and check for overflow 

: 2940 3845 2 INCREMENT. (SCBCPSM$B_INPUT DEPTH): 

; soe) aee6 2 iF ScOLPSASS_ INPUT DEPTH) GIR 1 

> 294 3848 5 BEGIN 

: Secs Hd ; <r Dp camrmaeie (.SCB, PSMS_TOOMANYLEV, 1, .SCBCPSMS$L_RECORD_NUMBER)); 
: 2946 3851 2 END; 

3 2947 3036 2 

: 2948 3853 2 ; ised 
; ay} $pee § Get a Dynamic String control Block and copy the service context area into it. 
5 2951 3856 3 PSMSALLOCATE DSB (DSB); 

: 2952 P 385 COPY PLIT WORD (PSM$S_SERVICE_CONTEXT), SCBLCPSMSR_SERVICE_CONTEXT], 
; $327 $ne8 2 BSBr SB. Q DESC): 

: 2955 3860 ; Ee 

: $909 $50! Place it in the input queue 

: 344 3868 $ INSERT_HEAD_ (DSBCDSB_Q_QLINKS], SCBCPSM$Q_INPUT_QUEUE)); 

: 2960 3865 ; . 

; 344 Hg Clear the service context area 

; 2368 3868 ; CHSFILL (0, PSM$S_SERVICE_CONTEXT, SCBCPSMS$R_SERVICE_CONTEXT]); 


poo 


“wOEr000" 
, 2965 


| 
| 
| 
| 
| 
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F 15 
16-Sep- 135% 0g: 19: 9 AX=11 Bliss-32 V4.0- os. 
SUSPEND _SERVICE == suspend the current input se 14- ~Sep- 35 PRTSMB.SRC DISPA TCH.B32;1 


3870 1 END; 


P.AAV: .WORD 


Oo 
oO 
— 
m 
oo 
— — 
— — 
@o00 
oper 


So 
o 


MIVOMIOMIMOO"IOO™"OIVITISO—OWOWoITOw 
OOMDOOOD-4"WlOfWOVOIT9OUNFMonwon 
COOCCGCOCOCOCOCGCOCOCOCOCOCOCOOOOCOOOOCOOoOOo 
SoOOoOCoooooooOoCoooOoOoOOoOOOoOOoOOoOOOoOoOOoOoOoOo 
ye A 9 9 9 tr et et eee ee eee eo 


ar 
3 02A5 


OF 
026C 
000000006 
F93D—sCCF 


000000006 00 
24 


7E 08 
000000006 


CTWOUIMOOrvo®s OOW WD OVwom oOvwoO 
wv 
a 
wn 
=x 
r 


000000006 
0184 


WN & & & AWAY 2 2 | | — OOOCOCOO 


2 00 
0 


04 
1€ 00 6E 
0260 


a 
™m 
bad 
ze 
o2z 
wn“ 
o 
Cc 
m 


“ 


OOOM-WIWWWNOWOBNM OEP VL OONO. & 
own» 


COOPKPWOMMOOPOOM OWMOWON-Corro 


Oo 
a 


6 


; Routine Size: 103 bytes, Routine Base: CODE + 1184 


sysPene SERVICE, Save R2,R3,R4,R5 


sf 08. RO 
(RO), #15 


620(R2) 
#BSMS_TOOMANYLEV 

#4, PSMSSTORE_ERRORS 
sp 

#1, PSMSALLOCATE_DSB 
at 

va -(SP) 
#3. STRECOPY R 
RO. STATUS 
STATUS, 2$ 
STA Tus 

H 


er tes) 
B, a388(R2) 


sce » R 
#0, (SP), #0, #30, 608(RO) 


Page 97 


Re Se Be Se Se Be Se Se Be Be Be Se Be Be Be Be Be Be Be Be Be Be Se Be Be He Se Be 


(43) 


3833 
3845 


3846 
3849 


3848 
3856 


3858 


3863 


3868 | 


3870 | 


— SS OO”. 


" aeecroemepeseaas —— ——— 


_DASPATSM 


| 
|. 
E 
| 


| 


| 
| 
¥ 


Print Symbiont = main dispatch routines 
SUSPEND_SERVI 
967 $87) 1 END 
968 872 0 ELUDOM 
PSECT SUMMARY 
Name Bytes 
CODE 4587 NOVEC,NOWRT, RD, 
Library Statistics 
eee Symbols 
File Total Loaded 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 113 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD,INITIAL,OPTIMIZE)/LIS=LIS$:DISPATCH/OBJ=OBJ$:DISPATCH MSRC$:DISPATCH/UPDATE=(ENH$:DISPATCH) 


4342 code + 245 data bytes 
01:40.9 
Elapsed Time: 


04:30.3 
Lines/CPU Min: 230 
Lexemes/CPU-Min: 2450 
— Used: 746 pages 
Compilation Complete 


15 
ante main dispatch routines, 18-Sep-1984 02:10:09 


Attributes 
EXE,NOSHR, 


Percent 
0 


AX-11 Bliss-32 V 
PRTSMB.SRC DISPAT 


-EXTRN LIBSSIGNAL, LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 
Mapped Time 
1000 00:01.9 


teh.03351 
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